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...on vuonna 1981 perustettu Apple-mikrotietokoneiden käy ttä jäklubi . 
Klubi omaa tällä hetkellä jo huomattavan tietotaidon. Kansainvälisen 
Applen käyttäjä järjestön International Apple Coren hengen mukaisesti 
pyrkii Klubi toimimaan välittävänä linkkinä ja yhteyskenttänä Applen 
käyttäjien ja Applen, sen lisälaitteiden ja ohjelmistojen valmistajien 
välillä. 

Klubin äänenkannattajaa OMENAHYVEttä pyrimme julkaisemaan tänä vuonna 
neljä numeroa. 

Mainoshinnat vuoden 1983 aikana: kansi 15D mk, sisäsivu 100 mk. Mainos 
toimitetaan joko A** -kokoisena, jolloin pienennämme sen valokopioimalla 
A5-kokoon, tai suoraan A5-kokoisena. 
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Klubille saapuvat seuraavat julkaisut: 


APPLE ORCHARD .International Apple Corern eli kansainvälisen Applen 

käyttäjien kattojärjestön julkaisu. 

BYTE Mikrolehtien Grand Old Man. Yleissivistävä. 

Call-A.P.P.L. E.. -Maailman suurimman Applen käyttäjä järjestön jäsen- 
lehti, teknisesti korkeatasoisin saatavilla oleva. 

InCider Ei kovin tekninen kotiApplelehti. 

PEELINGS II Soft- ja hardwaren puolueeton arviointilehti . 

International Apple Goren ja Apple Computer Incin *+50-sivuinen 
rengaskirja APPLE TECHNICAL NOTES. Sitä lainataan kahtena erillisenä 
Dsana: Apple II ja Apple III. Takuumaksu II:lle 250 mk, III:lle 150 mk 

Takuumaksu 100 mk /kappale (paitsi Tech. Notes, kts. yllä) klubin 
postisiirtotilille TA 3066 98-0. Postitse tilatessa vähennetään 
takuumaksun määrästä 10 mk/ postitus lehtien määrästä riippumatta. 
Viimeisintä njmeroa ei anneta lainaksi. Laina-aika kolme viikkoa 
lukien lähettämispäivämäärästä palauttamispäivän postileimaan. 
Palautuksen myöhästyessä 1 vrk - 3 viikkoa, palautetaan puolet 
takuumaksusta, sen jälkeen ei lainkaan. Lainaajia on useita ja 
julkaisuja vain yksi vaikeasti tai ei ollenkaan uutena kappaleena 
saatava, jote<- toivomme, että ymmärrät, miksi OLEMME TIUKKOJA 
LAINAUSAJAN SUHTEEN.* 
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PUUSTA PUDONNEITA 
eli 

viimeksi varisseita 


MUISTIVÄLINEITÄ 

16K muistikortteja näyttää nyt saavan valmiiksi koottuina $U2.50:lla. 
V/iime Dnenahy veessä mainitut EEPROMitkin ovat saapuneet Appi 
TinkerTron myy 16K korttia $300 :11a. Nehän ovat siitä veikeitä 
muistipiirejä, että luku/kirjoitus käy niille ihan kuin nykyisilli 
ekspansiokorteille, mutta säilyttävät muistinsa kuten EPROMit. 
Videxkin tuntuu EEPRONbineen parallel/serial interf acekortin (PSIO), 
joten mikä onkaan kätevämpää kuin säästyä joka jumalan kerta 
initialisoimasta printterinsä ja moderninsa parametreja ja to 
pystyä vaihtamaan ne uusiksi oitis tarvittaessa. Hintaa eivät 
uskaltaneet mainoksessaan sanoa, joten siitä voimme päätellä, M.t.ä 
kyllä sitä on. Katastrofitilanteissa haihtumaton on myös viime 
Pudonneissa mainittu MPC Peripherals Corporationin $895 hinta in 
kuplamuisti. Koska se toimii kuin levyasema, voi matkalle 1 hrit. i iv .. i.iu 
ladata sinne mielioh jelmansa - jos niiden suojaukselta sen pystyy 
tekemään - tarvitsematta roikottaa levyasemia mukana. 

Legend Industries, Ltd., 2220 Scott Lk. Rd., Pontiac, MI ^805^, on 
valmistanut S ' CARD -nimisen RAM<ortin, jonka perusversio on 6^K. 
Lisäämällä korttiin RAMpiirejä voi sitä laajentaa aina 1 MB asti. 
Samaan koneeseen voi laittaa useita S' CARDeja, joten yhdessä konnassa 
voi olla 7 MB muistia. Saman yhtiön 6^KC- ja 128KDE-RAM<orteille 
tehdyt ohjelmat toimivat myös S' CARD:n kanssa. 

Levyjen takuuajat alkavat olla kunnioitettavia. Ainakin Verbatimil l a 
ja Nashualla, ehkä jo monilla muillakin, on viiden vuoden takuu, 
jälkimmäistä saa SS SD (Single Side, Single Density) $18.95/10 levyä, 
SS DD (Single Side, Double Density), $20.95 Applen drivessä ei tarvita 
tuplatiheyttä, niin harvaan se hittejään levylle kirjoittelee. 

Joitain nimettömiä dumppilevyjä on tähänkin mennessä saanut sangen 
halvalla, mutta nyt lähtee bJabash single side, single density 
keskusaukon vahvisterenkaineen sadan kappaleen erissä $139:llä, eli 
$1.39 eli 7.80 mk ja ilman koteloa $1.29 eli 7.20 mk. Tai ei vielä 
lähde, koska toimitus- ja postituskulut, tulli, LVV/ ja 
tuonnitasausmaksu on tietenkin otettava huomioon, jolloin 
loppusummaksi tulee arvioni mukaan jonkin verran yli kympin 
kappaleelta. Mitta riski ja aikaJ Ken tavaraa ulkomailta tilailee, 
nuolee itse näppinsä vahingon sattuessa. Varsinkin mekaanisissa 
laitteissa tämä saattaa kostautua pahemman kerran. Mistä huolto? Mistä 
kytkinkaaviot? Jne jne. Vaikka näin asiakkaan näkökulmasta emme aina 
jaksakaan ymmärtää suomalaisen tavaran korkeita hintoja, niin 
miettiessämme näitä tekijöitä muistaen myös, etteivät tämän 
diskettiesimerkin hinnat ole edes "normaaleja" amerikkalaisia hintoja, 
niin ehkäpä sympatiamme myyjiämme kohtaan sentään jonkun verran 
kasvavat. 

Rana Elite 3:een ei kyllä kannata em. Single Densityä hankkia, koskapa 
se säilöö kaksipuolisesti 80 raitaa per puoli. Yhteensä se tunkee 
levylle näin 625 kilokappaletta bytejä. Hinta on $8^9. 


lainen Drivetec on saanut nykyisin popularisoituvan 
xean drivemallinsa kirjoittelemaan 192 raitaa per tuuma eli 
3 3 megabyteä tälle meidän niin hyvin tuntemallemme 5* tuuman 
lerppukoolle. Apple Inc- on itsekin tehnyt uusia drivejä: uM- ja 
Duofile kapasiteetiltaan B7U24 byteä/drive. Niiden kierrosnopeus on 
riippuvainen raidan sijainnista. Hinnat: Uii < $1000, Duo < $1700. 
Ardyn Corp ilmoittaa uuden 5i suurtiheysf loppydrivensä käsittelevän 
3.3 Mb ja Sony puolestaan puhuu 3* floppy vekottimestaan, joka 
käsittelee 1Mb. 


Vaan hirvittäviä ovat nuo hinnat siihen nähden, mitä StarLogic nyt 
tarjoaa- viiden tuuman "vanhanmallinen" floppyasema $205. totta vielä 
paremmalta tuntuu uuden nykyään populäärin puolikorkean ThinLine 
mallin hinta: $185.' Ja kaksoisdrivenä : $335.'.' Ottavat jostain 
syystä vastaan vain puhelintilauksia. Software Supportin $200 :n <*0 
raidan drive pääsee hinta per byte - suhteeltaan kahden em. mallin 
väliin. 

Nfelkoinen sekavuus vallitsee f loppydrivestandardeissa. IBM puuhailee ^ 
Matsushitan kanssa 25DK vetoisen k tutinan driven kimpussa. Myös 3, 3*, 
3i tuuman kokoja löytyy. 3* tuumaa (Sony), 300 rpm, W80 
single-/double-side on ANSI- (American National Standard Institute) 
standardisuDsituksena. Toshiba aikoo mennä omia teitään 
suunnittelullaan 3* tuuman 3 megabyteä (') vetävillä 
kromikobolttipintaisilla pystysuoran magneetti tallennuksen 
(perpendiculal magnetic recording) tekniikkaa käyttävillä levyillä. 
Siis lerppulevyillä.» Laskettu valmistumisaika on kuitenkin kahden 
vuoden päässä, mutta V/ertimag Systems aikoo saada samaa tekniikkaa 
käyttäen 5 ja 10 megabyten levynsä ulos jo vuoden sisällä. Kodak on jo 
esitellyt vastaavat levynsä kolmessa eri koossa; 5i ja sita 
pienerissä. Täysi tuotanto alkaa tämän vuoden lopussa. Syquestm 
kovalevyasemakin on tunkenut tähän kokoluokkaan 3.9 tuuman 
kasettilevyllään. Kannettavien laitteiden kovalevyasemaksi on sima 
lähitulevaisuuden lupaus, viiden megan vaihtokasettikovalevyasema- 
kilpailuhenki (keksikääpä pidempi sana.') on hirvi ttävyydessaan 
saanut Digital Electronics Systemsin myymään sellaista jo 3>1^yt>:lla. 

Andek, Corp, 2201 Lively Blyd., Elk Grove Village, IL 60007, myy 
286K-n (molemmat puolet yhteensä) levydriveä hintaan $299. Levyjen 
koko on tavallisen 5 1A" sijasta 3". Pienuus voi säästää tilaa, mutta 
kukkaroa ei; yhden floppyn hinnaksi sanotaan $6.99, kun halvimmat 
5 1 A "-levyt ovat $1.29 kappaleelta. 

SV/A 21722 Sorrento Valley Road, San Diego, CA, markkinoi tegaFlex 
nimistä drivecontrolleria Applelle. Se pystyy saman yhtiön myymälle 
erikoisfloppylle taltioimaan 1.2 MB, joka on 1.5 kertaa LISA-driven 
kapasiteetti. Hakunopeus on lähes kovalevyn luokkaa eli 250/500 
Kbittiä sekunnissa. Se pystyy toimimaan single- jadoubledensitylla 
sekä käyttämään levyn molempia puolia. Korttiin voi liittää k drivea, 
mikä tarkoittaa lähes 5 MB kapasiteettia. Ellei tama riita, voi talla 
kirjoittaa ja lukea PC-, Altos,- TRS- ja Osborne levy ja, ja 
luonnollisesti myös vanhaa kunnon DOSsia. Kortti kay myös ///:lle. 

MACROTECH Cunputer Products Ltd. myy DISKULATOR-nimistä 
diskiemulaattoria, jonka koon voi määrätä 6<*K-512K. Jotkut 
spreadsheetohjelmat kuten tegiCalc ja THE SPREADSHEET 2.0 (joka on 
99%-sti MAGICALC, mutta vain melkein kolme kertaa halvempi) 
hyödyntävät sen automaattisesti. Samalta yhtiöltä saa luultavasti 
MACR0DISK- MULTI - nimistä ohjelmaa, jolla DISKULAT0R muutetaan 3:ksi 
RAM-diskiksi. Kummassakaan mainoksessa ei ilmoitettu hintaa. 
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Ensimmäisen lisenssin Drexlerin laserkorttilaiteistoon (Laser Card) m 
hankkinut Toshiba. 3 miljoonan bitin pikku kortin hinnaksi tulisi noin 
$2 Entäpä Burroughsin U tuuman Uinchesterlevyn kokoinen optinen i* 
GIGAbyten levy, josta puolet eli 2 ODD ODD 000 byteä riittää 
käyttäjälle. Myynnissä eivät nämä valovehkeet vielä ole. 



68000-UUTISIA 

Kaikkihan - tai ainakin useimmat - ovat tietoisia t§stj 
tehoprosessorista eli 68000-kortista. Myt kaikki täysjärkiset pitävät 
tätä korttia eräänä kiinnostavimmista harduarehank innoista, joita 
Apoleen voi saada. Mutta huolimatta B MHz taajuudesta, 16:sta i 32 :n 
Tilin rekisteristä sekä 2k bitin osoiteväy Iästä on yksi teki ja, Joka 
estää "laiskaa» yleisöä tätä korttia hankkimasta tai edes sen 
suunnittelemisesta: valmiin softwaren niukkuus. Mitta nyt on Digit.nl 
Acoustic, 68000 markkkinoija, alkanut kehittää yhä houkuttelevampia 
tarjouksia, joista kannattaa mainita mm. seuraavaa: 

1) Hardware 

a) DA on alkanut myydä 12 MHz - entinen oli 8 MHz - vers 

b) DA on valmistanut interf ace-kortin , jonka avulla pystyy 
siirtelemään muistialueita 6502 : n ja 68000 : n välillä. Esimerkiksi AK 
hires-sivun siirtäminen 68000:sta Appleen käy 12 millisekunnissa. 
Kokeilkaapa vain monitorista siirtää BK aluetta, viive on selvä. Hinta 
on n. $95 - $125. 

c) Lisäksi DA on tekemässä 68000:sta versiota, joka tulee toimimaan 
dynaamisilla RAM-piireillä, nykyinen käyttää staattisia Joitakin 
makupaloja: kortissa olisi valmiina 50BK DRAMia, expansiokortin tultua 
1 Mb eli sama kuin LI5A:llaJ Kellotaajuus talla kortilla olisi 10 
MHz. 12.5 MHz:llä käy Analytical Engines Saybrookin 68000-kortti . 

2) Software 

a) DA tarjoaa täyden diskillisen 6B000-assemblerkoodia, siis ei 
valmista 68000-konekieltä . Kita hyödyntääkseen tarvitsee kaytta ja DOS 
toolkitin sekä ASSEM68K:n - hinnat $75 ja $95 Di^ .paitaa 
seuraavanlaista kamaa: Desimaaliluvuilla toimiva matikkapaketti 
sisäUäen mm. L0G, EXP, SQR, SIN, C0S, TAN ja ATN mikä uonnoll isesti 
merkitsee nopeampaa matikkaa kuin mihin Apple pystyy. Rutiinin voi 
liiUää joko P BA5 P ICiin tai sitten DA:n kehittelemään HALGOLiin Pituus 
B5 sektoria; PR0M monitori, 35 sectoria; 3-D grafiikkademo 1 5 
secfria; HALGOL-kieli , käyttää matikkapakkausta, 56 sectoria, 6502 
assembler-koodia jonka avulla 68000-utility t voi liittää yhteen 
BASICin kanssa. 

b) SBOOO-pohjainen BASIC. Luonnollisesti täysin 68000 pohjan AMI. 

on nope^pi kuin BASIC, joka käyttää korttia va in matikan kun* .a ■ 
Yhtiö ioka tätä tekee - Phase Zero Ltd - tuntee App I psnf 1,1 
tietämän mukaan aikoo tehdä 68000-BASICin suurelta osin 
Applesof t-kombatiibeliksi . 


Pelejäkin on ilmestynyt yksi kappale: Länsi-Saksast.n on saati 
»vakavaan turna jaistyöhön » $77 maksava shakk ioh jelma. Ohjelma 
tarvitsee SOK SB000-*ortin. Saasta paikasta^aa^O^aksavan^^ 
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IMIITÄ NÄITÄ 

Tiesitkö, että Personal Computereita myytiin USAissa vuonna 1982 
2.8 miljoonaa kappaletta? Koulut ja kodit olivat USA:n noin 100 
computergigantin markkina-alueita. Kohta siis PC on levinnyt U5A:ssa 
yhtä laajalti kuin puhelin. 

Vanhat parrat jo uusivat vanhoja koneitaan //e:ksi, Suomessakin, katso 
vaikka tämän lehden myynti-ilmoitusta. Suurin osa niin tavaroista kuin 
ohjelmista vielä käy vanhaan Appleenkin, mutta uusia vain //e:n 
hyväksymiä herkkupaloja alkaa ilmestyä varmaan erittäin tiuhaan 
tahtiin, kuten vanhojen käskyjen lisäksi 59 uutta käskyä omaava $35 
hintainen 65 CD2 -prosessori . Apple ///näyttää jääneen kehitykselliseen 
umpipussiin. Miten käynee Lisan hirvittävien hintoineen? Sehän maksaa 
kymmenen kilotaalaa, joten köyhälistö pysytelköön syrjemmällä. 
Madonlukuja veikataan myös //e:lle sen korkean hinnan takia. 
Amerikoissa kylläkin sitä on jo alennusmynnissä 128-kiloisena ja 
80-kolumnisena hintaan $1345, kun sen 64K-version hinta ilman 
80-kolumnin korttia on $1395. - //e-projekti alkoi muuten jo vuonna 
1978, mutta se hyllytettiin välillä tuon nyt erehdykseltä vaikuttavan 
///:n vuoksi. - Tänä vuonna Suomessakin toteutettu ///:n lähes 30%:n 
hintarysäys ei pelastane sitä mitenkään merkittävämmin. Sitä on kahden 
elinvuotensa aikana myyty noin 60000 kpl. Ohjelmistotalot käänsivät 
katseensa enemmän IBM:n PC:n suuntaan, jota nyt onkin jo monin verroin 
enemmän (viime vuonna myyty melkein 200000, tämän vuoden arvio 350000) 
kuin Apple ///:sta. //e:llähän Apple Inc. eivät päästäneet tällaista 
tapahtumaan, vaan antoivat sen pyhän salassapitovalan vaatimuksen kera 
sof tisvalmistajille jo hyvissä ajoin ennen koneen julkistamista. Se 
kuuluukin nyt n.enevän kuin kuumille kiville. 

rtjumat kivet odottavat varmaan myös säästöliisaa. Lisan halvempi 
versio Nbclntosh on tulossa ja ensimmäiset menossa USA:ssa Drexel 
Uiiversityyn Philadelphiassa. Ostivat 3000 kpl ja myyvät sitä 
opiskelijoilleen hintaan $ 1000/kpl. Koneen painoksi ilmoitetaan 
ainoastaan 24 lbs (11 kg) ja voidaan siirtää kuten kannettava 
televisio. Kapasiteetin sanotaan olevan 64 Kb ja tällä Macilla on 
monia Lisan ominaisuuksia. Siis helppokäyttöinen Apple on tulossa, 
tullee vuoden lopulla yleiseen myyntiin ehkä hintaan $ 2000. Ehkä se 
nähdään 1984 täällä kotomaassakin. 

Woz eli epäjumala Steve libzniak on saanut aikaan Digital Researchin 
kanssa $350 hintaisen CP/M Plus eli CP/M 3-kortin, joka tulee 
supportoimaan uutta graf iikkastandardia GSX-80. Kortin valmistaja on 
ALS eli ftivanced Logic Systems. CP/M on siinä sorvattu 8 bitin 
koneille sutjakaksi ottaen huomioon nykyisen 64K ylityksen niissä. Sen 
suurin f loppydrivekapasiteetti on 512 megabyteä, vanhan CP/M 2.2 
version taas 8 megaa. Max. filekoko on 32 megaa, entisen version 8M. 
I^buten uusi Apple //e:kin on lisäkortin kera muistitilavuudeltaan jo 
128K. Suorana muistialueena ei tämä tietenkään ole mahdollista, vaan 
se käyttää rinnakkaisia muistialueita vaihtaen aina tarvittavalle 
alueelle. Tätä rinnakkaisten muistialueiden vaihtoa käyttävät kaikki 
nykyisetkin ekspansiokortit . 

IBM:n PC:n eli Applemme kilpaili jamikron saa luulemaan itsensä 
Appleksi 680 dollarin kortilla. Nyt on mokomilla Applenkin valtava 
ohjelmisto käytttävissään, mutta toisinpäin eivät asiat onnistu eli 
PC:n mainiot ohjelmat jäävät meiltä pyörittelemättä. 
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Applen lippulaivan Lisan integroitua sof tpakettia muistuttav/a IBM 
PC:lle ja RS 232C-porttia käyttäville MS-DOS-koneille kirjoitettu 
Visicorpin vain $195 hintainen Uisi Oi -paketti käyttää hieman samaa 
systeemiä kuin Applen uusi lippulaiva LISA, eli pöydällä pyöriteltävää 
ruudun tapahtumia säätelevää "hiirioh jainta joka vähentää 
näppäimistön käyttötarvetta huomattavasti. Ruutu näyttää *^~_JL 


numeroita ja kirjaimia, joiden perusteella käyttäjä tekee eri 
valintoja, vaan kuvasymboleja, joiden päälle sitten kursori pallolla 
pyöritellään, painetaan nappia ja hups vaan. Hiiret tulevat jyrsimään 
pahasti näppäimistöjä seuraavina vuosina. 

Videx, 897 IMU Grant Ave., Corvallis, Oregon 97330, on juuri tuonut 
markkinoille kiintoisan BD-kolumnin kortin, joka näyttää enemmän nyt 
myös pystysuunnassa. Tämä $379 :n hintainen IXLtraterm-niminen 
herkkupala antaa valita 80x48, 128x32, 132x2*+ tai 160x24 näytöistä 
mieleisimmän. Söftviaeovippa on jo valmiina. BASIC, Pascal, ja CP/M 
toimivat sillä kuten Apple II, ///, //e ja Franklinkin. Mitäs tuo nyt 
vielä on, mutta kun kirjainten matrixkin on 8x12, joten resoluutiota 
riittää, vaan monitori jo täytyy silloin olla, ei taida enää vaarin 
Squauj Valleyn talviolympialaisiin ostaman vanhan Tl/:n terävyys olla 
tarpeeksi. Pre-boot-oh jelmat löytyvät vasta Apple Uriter II reen ja 
visicaiciin, mutta toisaalta Uidexin vanhaa korttia ymmärtävien 
ohjelmien pitäisi siihen valtaosaltaan käydä. Lupaavat toimittaa 
listaukset- |BP ky tkinkaaviot myös, joten skandinaavisten merkkien ttkG 
ei pitäisi olla siihen liian vaikeaa. Jäädään odottelemaan 
puolueettomia kritiikkejä tästä tekstinkäsittelijän toiveunesta ja 
kerrotaan si-tte. lisää. - Jos joku klubilaisista hankkii sen ja 
valmistaa sii-hEn skandit, niin kErtokoon ja nopeasti.' 

QuadraTr: UTr^THtion, 4357 Park Drive, Nocross, Ga. 30093 myy //e: 11 e 
80-col i^l' .i^k^rttia hintaan $159, joskin vieläkin halvempia löytyy: 
Qrbital Systems, P.O. Box 5277, Mesa, Arizona 85203, valmistaa //e:lle 
64 K 80-col korttia hintaan $99. Edellinen on kitti joka pitää itse 
koota; mikäli ci tätä halua, voi saada valmiin laitteen maksamalla $30 
lisää. Samalta yhtiöltä saa E-Z CARD -nimistä Z-80-korttia ilman 
softwarea hintaan $60, joka edellisen tapaan pitää koota. 
Kolmellakymmenellä lisädollarilla saa valmiin kortin. 64K 
80-col-kortilla hyödyntyy myös //e:n uusi äitilevy, jossa HGR on 
560X192. Lisäksi normaalissa Hi-resissä on 16 väriä. l\Bmä 
HGR-ominaisuudet ovat samat kuin ///:ssa. - 128K BO-col-korttiakin jo 
löytyy. 

Diskazine on kuusi kertaa vuodessa ilmestyvän Applen käyttäjille 
tarkoitetun lehden nimi. Nimestä jo arvaa, että lehti toimitetaan 
tilaajille disketillä. Mainoksiakin se sisältää demomuodossa. 

The Apple Uidous Club of ftnerica on aikamme ilmiö eli pikemminkin oire 
sekin. Käsi sydämelle, koneenne taakse piiloutujatJ - V/ai ehkä 
peräti tahdottekin tuhota perheenne? 


POHJOISMAISTA 

Topdata on ostanut Porin Mariachin. Apple Computer Finlandia ei enää 
ole, vaan se on Grönblom 0Y:n pientietokoneosasto. Apple ///:n hinnnl. 
putosivat Suomessa 26%. Apple //e:tä myydään kouluhintaan 17340 mt , 
monitorin ja Applen oman driven kera. Applen omaa dot matrix 
printteriä myydään 5965 :llä markalla. Insele OY suunnittelee tuovansa 
pientä A4-arkin kokoista salkkuun menevää erittäin kevyttä noin 1500 


analogisemmalta kuin ennen 
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mk:n hintaista (välikortteineen) neljällä värillä piirtävää 
printteriplotteria. Herkullisen näköisesti se sutii M3 tai BO merkin 
leveydellä :n leveydestä noin puolet kapeammalle tavalliselle 
paperirullalle kirjaimia ja HGR-kuvia. Ja plotterina se toimii myös. 

Vielä kiintoisampi on Inselen Appleen sopivien slim line - levyasemien 
hinta: 3200 mk kontrollerin kera ja 2800 mk ilman. Takuuta on puoli 
vuotta. Nämä hinnat ovat tietääksemme nyt Suomen halvimmat. 
Kiinnostuneet soitelkoon numeroon (90) 750 600 tai käyköön katsomassa 
niitä Kumpulantie 1:ssä Helsingissä. 


- Ja käykääpä katsomassa ensimmäistä todella kolmiulotteista 
videopeliä Linnanmäen pohjoispään peliluolassa. 

Norjassa käydään herätyskeskustelua siitä, mikä tulee olemaan koulu- 
poliitikkojen ja opettajajärjestöjen kanta mikrotietokoneisiin. Yhtä 
mieltä näytetään olevan siitä, että tietokoneteollisuudella on valta 
ja valtakieli käsissään. Ei siis mikään ihme, ettei Apple jäänyt ilman 
kilpailijoita myöskään Norjassa. BBC:n tietokone ja Dragon 32 sekä 
Commodore kilpailevat Applen kanssa kovasti yhä laajentuvista markki- 
noista. 

Mitä sitten teki tuo rakas verivihollisemme (ainakin urheilussa) 
Ruotsi. He tekevät jo aikaisempien tietokoneiden lisäksi oman koulu- 
tietokoneen TUDIS (työnimi). Prototyyppi luvataan syyskuuksi ja val- 
mistaja on Esselte Studium, Applen jälleenmyyjä Ruotsissa. Ohjelmoin- 
tikielenä käytetään C0MAL, kehitetty BASICrstä ja PASCAL-vaikutteinen . 
Miistin suurujdeksi luvataan koneessa 12B Kb - 1Mb. Ulkoinen 
muistikapasiteetti olisi 10 Mb. Mikä on koneen elinikä? V/iiden vuoden 
kuluttua höyryveturia vastaava taso? 

Appleklubi on ottanut yhteyttä Apple User Group of Suedeniin 
keskinäisen ystävyyden, yhteistyön ja avunannon merkeissä. Lähempiä 
tietoja seuraavissa numeroissa. 
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PUBLIC DOMAIN 
et ai. 


Public Domain-levy jä on klubilla jo yli kaksikymmentä. Enimmäkseen 
ovat diskit IAC:ltä eli International Apple Corelta ; Applen 
käyttäjä järjestöjen kansainväliseltä katto-organisaatiolta (jossa nyt 
M3DD käyttäjäryhmää ja 80DD0 jäsentä). IMiitä saa muutella vapaasti. 
Niiden pitäisi olla virheettömiä, mutta kukaan ei mene siitä 
takuuseen. Jos koko diski sattuu olemaan viallinen, lähettäkää se 
maksutta uusittavaksi. PD-ohjelmia sopii korjailla, kute: luistanette. 
Katsokaapa ensimmäistä saapunutta parannusehdotusta tuolla Edempänä. 
Hiljalleen paranevat IAC:nkin PD:t, kuten ajan myötä selvää Gnkin. Myt 
näyttää esim. melkoisen mukava konekielen käsittelyohjelma Binary 
Entry Utility diskillä numero 25 nousevan jo kielikorttiin. 

Toimitus/postimaksu per levy 10 mk ynnä levyn hinta 35 mk maksetaan 
Appleklubin PS-tililie Appleklubi/Per-Erik Eriksson, TA 3066 98-6. 
Lisätietokohtaan on selvästi merkittävä, mitkä PD-diskit haluaa. Odot- 
tele rauhassa sen jzlkeen vähintään pari viikkoa. Voit lähettää levyn 
hinnan sijasta myös itse levyn (levyt) toimistoon Tero Sandille - ei 
Per-Erikille. 

o 

l/ISICALC- ja THE Spreadsheet-templaatit sekä compailatut ohjelmat: 
Ei ole kuulunut, joten PD-diskiäkään ei silloin tietysti saada kokoon. 
Onko ylipäänsä ^ku loppujen lopuksi hyötynyt mitään compilereistä , 
vai olivet>r ssal 'frkniikkaa tefnii^an vuoksi? 

<> 

Miistutarr^E xl&lM kerran DIVERSI-DOSsista. Sen tekijä ilmoitti 
myyneensä sitä 1200 kpl allamainitulla tavalla. Sehän on yksi 
nykyisistä pi-. -Jossei st a, saanut hyvät arvostelut. Ko. ohjelmalevy 
rinnastetaan I D-d iskiin eli klubi perii siitä vain postitus- ja 
toimituskulut. ylläolevan mukaan. Mikäli olet tyytyväinen ohjelmaan, 
pyytää ohjEiman y-j mistä ja sinua lähettämään $25 suoraan hänelle. 
Ohjeet ja muu info löytyvät levyltä. Katso tarkemmin edellinen 
Qnenahyve. 

o 

Ilkka Blomin shakkitehtäväoh jelmat ovat myös vapaasti saatavissa. 
IMiitä ei saa kuitenkaan mennä muuttelemaan kuten PD-ohjelmia. 

o 

PD-diskiluettelot on tehty Sensible Softuaren MULTI DISK CATALOGilla. 

Tero Sand on tehnyt MDC FILE PRINTERin, jolla ko. filet saa ruudulle 

tai printattua. Jos haluat kaikkien tähän asti ilmestyneiden 

PD-diskien sisällysluettelot, tilaa MDC-FILE-diski 

jossa ko. filet ja niiden em. purkuohjelma ovat. Se rinnastetaan 

PD-DISKEIHIN. 

o 

Saatavana myös A.U.B.E.m eli Apple User Group Europen tekemä IACBASE, 
joka on Pascalkielinen jäsenluetteloiden ylläpitoon sopiva 
databaserunko. Koska levyyn kuuluu myös 13 sivua tekstiä, rnekSBB I knin 
2-puolisen levyn tilaus tavanomaiset 10 mk plus sen päälle toiset 10 


-11- 


mk monistuskuluja (sekä tietysti levyn itsensä hinta, jos emme saa 
tyhjää levyä tilaajalta). Toimitusaika on poikkeuksellisesti 2 kk, 
jottei meidän tarvitse joka jumalan päivä rimpata niitä ohjeita 
monistamassa. 


PDrstä löytyy Pascaliakin. Veli-Jukka Leppänen kertoo, kuinka 
directoryn listaus käy paperille: 

1) Mennään FILERIIN 

2) frinetaan KOMENTO (E) 

3) ftjn kone kysyy VOLUME numeroa, annetaan se seuraavasti: 

: #6 : tai 
#if : , PRINTER: 

TvBin saadaan sisällysluettelo suoraan paperille, eikä tarvitse 
tallettaa directorya levylle ja siirtää sitten vasta paperille. 


Tuomo Kaukavuoren muutosehdotus PARABOLA PLOTtiin PD 17*4 :llä: 

LIST 
10 HGR 

12 HC0L0R = 3 

20 HPLOT 0,110 TO 279,110 

30 HPLDT 1<*0,0 TO 1^0,159 

60 FOR I=-3.9 TO 3.9 5TEP .0^ r N 


200 NEXT I 

210 FOR I = 1 TO 279 STEP 30 
220 FOR J = 20 TO 159 STEP 30 
230 HPLOT I,J 
2UU NEXT J 
250 NEXT I 
252 V/T AB 2k 

255 PRINT " FUNKTION Y = X A 2 KUVAAJA" 

260 PR I NT : PR I NT "ESC LOPETTAA VÄLILYÖNNILLÄ UUDESTAAN" 

262 IF PEEK (-1638*0 = 155 THEN i*90 

26*4 IF PEEK (-1638^ )< > 160 THEN 262 

265 REM MYÖS 265 POKE - 16368,0 

266 GOTO 10 

^♦90 POKE -16368,0 
500 TEXT:H0ME 

1000 REM RIVI 92 TARVITSEE YLEENSÄ SEURAA 


o 


6*4 X = 1/*0 + I * 30 
66 Y = 110 - J * 30 
92 IF Y < 0 THEN 200 
150 HPLOT X,Y 


61 REM ÄSKEINEN STEP VOI OLLA .02 

62 J = 
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Aapi Juntura 

KUVIOIDEN TEKO (SHAPE-valmistus ) 

Appleen kuvaruutuun voi tehdä erilaisia merkkejä ainakin kolmen kHakyn 
avulla, nimittäin: HPLOT, POKE ja DR AU. 

Ensin POKE -käsky : 

Poke-käskyllä voidaan annettavaan muistipaikkaan si joku luku 

0...255. Kun sijoitus tapahtuu näkyvälle muistialpei .ilaan 
valkoisia pisteitä yksi tai useampia riippuen siitä, u 10 Juku 

si joitetaan . Esimerkk i : 

0110 desimaaliluku 6 

. . 1001 -"- 9 

1111 15 

. . 10D1 9 

ftjn ylläolevat luvut sijoitetaan alakkaisille riveille saadaan 
A-kirjain muodostetuksi. On mahdollisuus käyttää joko HGR- tai 
HGR2 -aluetta. Jos sijoitetaan kirjain HGR-sivulle, on vasemman 
ylänurkan osoite 8192 ja aiakkaisten muistipaikkojen väli 102^ 
merkkiä. 

Suoritetaan suraavat käskyt: 

HGR : HC0L0R=3 : P0KE8192.6 : P0KE9216.9 : P0KE102^0,15 : PGKE1126U.9 
Asia mutkistuu kuitenkin vielä siksi, että sivu jakaantuu lohkoihin 
(3kpl). Kokeile vaikka: FOR 1=8192 TO 1638^ : POKE I,127:NEXT Luku 
127 antaa viivan, pituus 6 yksikköä. Kun kirjaimet ovat eri 
lohkoissa, on kirjaimen muodostus jonkiverran mutkikasta. Kuvaruudun 
säännöllinen täyttäminen ylhäältä alas käy seuraavasti: 

10 HGR2 : HC0L0R=3 : A=1638^ : FOR L = 0 TO 80 STEP m0 

20 FOR K = 0 TO 896 STEP 128 

30 FOR J = 0 TO 7166 STEP 102<4 

*+0 FOR I = 0 TO 39 

50 POKE (A+I+J+K+L),127 

60 NEXT I,j\K,L 

Kokeilepa myös: HGR : HCOLOR = 3 : FOR I = 8192 TO 1638^ : POKE 1,1 : 
NEXT 

Kaikitenkin asia vaikuttaa sen verran mutkikkaalta, ettei kellMin 
liene suurtakaan intoa ruveta tekemään omia aakkosia ja käyttämien 
niitä kuvien tekstitykseen? 

HPLOT-käsky 

Suorista viivoista muodostuvien kirjainten tekeminen HPl n T - k ,"»•> v I I 
voisi olla helppoakin. Tällaisia kirjaimia ovat N, H, I, L, M, E, F, 
A, T, V, X, lii, Z, Y. Kaarien tekemiseen tarvitaan runsaasti 
käskyjä. Kokeillaanpa tehdä N. 

10 HGR : HCOLOR = 3 : X = 10 : Y = 10 

20 HPLOT X,Y : FOR I = 1 TO k : READ A : X » X 4 A : Rl AD H : V - Y ♦ 
30 HPLOT TO X,Y : NEXT 
UQ DATA 0,-7,5,7,0,7,0,0 
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La* Antama 11a dataa ia pidentämällä silmukkaa saa kaikki 

Etakin merkkejä. Yleensä kirjaimet ovat kömpelöt. 


DRAU-käsky 


virhealtista puuhaa, esimerkiksi pieni p-kirjain 
\l tl Xo inn 91 \u 30 7 0' Pieni sulkumerkki taas un 

tt £ ^ IM W 6 Leaksi YarvUaan erityinen osoiteosa joka määrää 
k' ' l^nitteen Oi mitä edullisinta laatia phjelma, joka vaantaa 

shapen ■ lk "»?"^-* "eki iälle enenmän taitellista vapautta. 

änen^nTaraareren^^.rpiPe^osoitekaooausta pienen esimerkin 

avulla: 

2S* S S S 2°= S S S S::: S S S S S S S S 3 K::: 

Osoite on suhteellinen osoite alkuun (start > n ^ en ; x number of 
CB 00. Osoitteessa u " ^ Kuvion päättyminen näkyy 


asti. 


+ ui « <h ini+taa shaoet HGR2 :n yläpuolelle paikasta $6000 
pokf 733 % Taulukon Pituus selviää likimain kun katsot levylle 
sektoreiden maaran. Jokainen seKtori Tiedalla on merkitystä 

Toim.huom. : 

Seuraavien sivujen ohjelmissa näet printterin tyhmyyden tähden tähden 
Sn ?niended), joka on käsinpiirretty. Hjomioi myös kirjallisuus- 
luettelo niiden jälkeen. 
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10 TEXT : HOME : HTAB 10: PRINT 
»SHAPEN TEKO-OHJELMA": PRINT 
: PRINT 

20 REM 

KIRJOITELLUT MICROCOMPUTER 
GRAPHICS KIRJASTA SEKÄ MUUNTANUT 
JA SUOMENTANUT AAPI JUNTURA 

30 HCQLOR= 3: SCALE= 1: RGT= 0:T 

A = 2*»576 
kQ POKE 768,1: POKE 769,0: POKE 

770, <*: POKE 771,0 
50 POKE 772,58: POKE 773,36: POKE 

77/4,^5: POKE 775,5^: POKE 77 

6,7: POKE 778,0 
60 PRINT ■ V/ALITSE: * : PRINT 
70 PRINT "L~ LATAA SHAPEN DISKI 

LTÄ 

80 PRINT : PRINT "U~ ALOITTAA U 

UDEN TAULUKON 
90 PRINT : PRINT : INPUT A$ 
100 IF A$ = "U" THEN 220 
110 IF A$ < > "L" THEN 60 
120 PRINT CHR$ (<*);"CATALOG": INPUT 

» MINKÄ LATAAT ";N$ 
130 PRINT CHR$ (iO;"BL0AD"N$;", 

A$6000 " 

POKE 232,00: POKE 233,96 
150 N = ( PEEK (TA + 2) + 256 * PEEK 

(TA + 3) - 2) / 2 
160 SN = PEEK (TA): PRINT : IF S 

N - N THEN PRINT "TAULUKKO 

TÄYSI": END 
170 HOME : VT AB 8 
180 PRINT "TAULUKKOON SOPII "N" 

SHAPEA": PRINT 
190 PRINT "VALMIINA ON "SN" SHA 

PEA ": PRINT 
200 FOR I = 1 TO 2500: NEXT 
210 GOTO 280 

220 TEXT : HOME : INPUT " MONTAK 
O SHAPEA TÄHÄN TAULUKKOON: " 

;N 

230 POKE TA.O: POKE TA + 1,0 

2UQ DA = 2 * N + 2 

250 POKE TA + 2, DA -.256* INT 

(DA / 256) 
260 POKE TA + 3, INT (DA / 256) 
270 FOR I = TA -f U TO TA + 2 * N 

+ 3: POKE 1,0: NEXT I 
280 PRINT : PRINT "ANNA SHAPEN M 

ATRIISIN KOKO" 
290 INPUT "ANNA MATRIISIN LEVEYS 

1-15 ";C 
300 IF C < 1 OR C > 15 THEN 290 
310 AS = C:C = 10 *- C 
320 INPUT "ANNA MATRIISIN KORKEU 

S 1-15 ";R 


330 IF R < 1 OR R > 15 THEN 320 
3UD RV = R + 1:R = 150 - 10 *- R 
350 HGR 
360 GOSUB 780 

370 FOR I = R TO 150 STEP 10: HPLDT 

0. 1 TO C, I: NEXT 

380 FOR 1=0 TO C STEP 10: HPLOT 

1, R TO 1,130' Nf XF I 
390 IF A = 1 i 

<*0G HOME : Vi AH 2 U«T "ALOIT 
USPISTE VASc". - SKIJLMA 1*1 " 

MO INPUT "OIKEALLE ? , X-1 : INPUT 

" YLÖS ";Y1 
UZO X = 10 * X1 - 5:Y » 155 - 10 -* 

Y1 

t»3D ADDR = PEEK (TA + SN 2 + 2 
) + 256 ¥r PEEK ( TA + SN * 2 
-f 3) + TA 
Mri3 POKE 232,0: POKE 233,3 
UbD X DR AU) 1 AT X,Y:P = 0:V = - 
1 

/46O HOME : VT AB 21 : PRINT "TAULU 
KKOON SOPII TÄSSÄ ON** 

"SN + 1 

^70 VT AB 22: PRINT TAB( 10);" O 

HJAUS Ui/Z/A/S " 
^80 VT AB 23: PRINT " VALITSE: PL 

OT (P), TALLENNUS (T), " 

VT AB 2k : PRINT " YHDE 

N PISTEEN KORJAUS (1) 
500 VT AB 23: HTAB 35: GET V$: PRINT 

510 IF V$ = "T" THEN POKE ADDR, 
P: POKE ADDR + 1,255: GOTO 6 
20 

520 XDRAUJ 1 AT X, Y 
530 IF V$ = "P" THEN P = U : FCR 
I = X- 3T0X + 3: HPLOT I, 

Y - 3 TO I,Y + 3: NEXT I: XDRAU 
1 AT X, Y: GOTO 500 

5mO IF V$ = "I" THEN HCOLOR= 0: 
P = 0: FOR I = X - 3 TO X + 
3: HPLOT I, Y - 3 TO I, Y + 3 : 

NEXT I: HCOLOR= 3: XDRAU) 1 AT 
X,Y:: POKE ADDR , P : POKE ADDR 

- 1 , ER : ADDR = ADDR - 1: GOTO 
500 

550 IF V$ = "W" THEN V = P:ER = 
2:Y = Y-10:IFY<R THEN 

Y = Y + 10: PRINT CHR$ (7); 
:V = - 1 

560 IF V$ = "S" THEN V = P + 1:E 

R = 3:X = X + 10: IF X > C THEN 
X = X - 10: PRINT CHR$ (7); 
:V = - 1 

570 IF V$ = "Z" THEN V = P + 2:E 
R = 0: : Y = Y + 10: IF Y > 15 
O THEN Y = Y - 10: PRINT CHR$ 
(7);:V = - 1 
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580 IF V$ = "A" THEN V = P + 3:E 

R = 1 :X = X - 10 : IF X < 0 THEN 

X = X + 10: PRINT CHR$ (7); 

:V = - 1 
590 IF V = - 1 THEN XDRAtiJ 1 AT 

X,Y: GOTO 500 
600 POKE ADDR, V: ADDR = ADDR + 1 
610 XDRAli) 1 AT X,Y:P = 0:V = - 

1 : GOTO 500 
620 ADDR = PE EK (TA + SN#-2 + 2 

) + 256 *- PEEK (TA + SN ¥rZ 
+ 3) + TA:BYTE = ADDR 
630 C1 = PEEK (BYTE): IF C1 = 25 

5 THEN POKE ADDR, O : ADDR = A 

DDR + 1 : GOTO 760 
640 C2 = PEEK (BYTE + 1): IF C2 = 

255 THEN POKE ADDR, C1 : POKE 

ADDR + 1,0: ADDR = ADDR + 2: GOTO 

760 

650 C3 = PEEK (BYTE +2): IF C3 = 
255 THEN POKE ADDR, C1 + 6 > 
C2: POKE ADDR + 1,0: ADDR = A 
DDR + 2 : GOTO 760 
660 CODE = C1+8-X-C2+64*-C3 
670 IF CODE = L THEN POKE ADDR, 
64: POKE ADDR + 1,24: ADDR = 
ADDR + 1:bYTE = BYTE + 2: GOTO 
750 

660 IF CODE < 8 THEN POKE ADDR, 

CODE: 30 TO 750 
690 IF CODE < 64 THEN POKE ADDR 

, CODE : H YT E = BYTE + 1: GOTO 

750 

700 IF CODE < 256 THEN POKE ADD 
R, CODE: BYTE = BYTE + 2: GOTO 
750 

710 CODE = CODE - 64 C3 
720 IF CODE = O THEN POKE ADDR, 
64: POKE ADDR + 1,3: ADDR = A 
DDR + 1 :BYTE = BYTE + 1: GOTO 
750 

730 IF CODE < 8 THEN POKE ADDR, 

CODE: GOTO 750 
740 POKE ADDR, CDDE: BYTE = BYTE + 

1 

750 ADDR = ADR + 1 :BYTE = BYTE + 

1 : GOTO 630 
760 POKE TA, SN + 1: POKE 233,96: 

DR AU SN + 1 AT 165,135 
770 GOTO 820 

780 Rl = 15:SA = 150: FOR ME = 1 TO 
PEEK (TA): IF PEEK (TA) < 
1 THEN RETURN 
790 IF SA > 264 THEN SA = 150: Rl 

= Rl + RV/ 
800 DR AliJ ME AT SA,RI:SA = SA + A 
S: NEXT 


810 RETURN 
820 GOSUB 780 

830 HOME : VT AB 22: PRINT "TALLE 
TATKO TÄMÄN NUMEROLLE "SN + 
1" K/E ": INPUT A$ 
840 IF A$ = "K" THEN SN = SN + 1 
: IF SN < N THEN DA = ADDR - 
TA: POKE TA + 2 ¥c SN + 2, DA - 
256 *- INT (DA / 256): POKE 



TA + 2 -Kr SN + 

3, INT (DA / 2 


56) 


850 

IF A$ < > "E 

• AND A$ < > " 


K" THEN 830 


860 

POKE TA, SN 


870 

TEXT : HOME : 

VT AB 17: PRINT 


"VALITSE : " 


880 

HTAB 5: PRINT 

"1- LISÄÄ SHAP 


EJA 


890 

HTAB 5: PRINT 

"2- VAIHTAA MA 


TRIISIN 


900 

HTAB 5: PRINT 

"3- VAIHTAA AL 


OITUSPISTEEN 


910 

HTAB 5: PRINT 

"4- TALLENTAA 


TAULUKON LEVYLLE 

920 

HTAB 5: PRINT 

"5- LOPETTAA 0 


HJ ELMAN" 


930 

HTAB 5: PRINT 

"6- ESITTÄÄ KA 


IKKI ■ 



940 HTAB 5:: PRINT : INPUT A$:A = 

VAL (A$) 
950 IF A < 1 OR A > 6 THEN 870 
960 IF SN = N AND A < 4 THEN PRINT 

"TAULUKKO TÄYSI": FOR I = 1 TO 

1000: NEXT I: GOTO 870 
970 ON A GOTO 350,280,350,1000,9 

90 

980 HGR :RV = 10: AS = 10: GOSUB 

780: PRINT "PAINA RETURN IA ■ 

: INPUT A$: GOTO 870 
990 TEXT : HOME : END 
1000 INPUT "NIMI ";N$ 
1005 PRINT "TAULUKON PITUUS "ADD 

R - 24576 
1010 PRINT CHR$ (4);"BSAVE";N$; 

", A24576,L";ADDR - 24576 
1020 GDTO 870 


~* jfc £ | *** » € # 
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10 REM 

TÄMÄ OHJELMA PYRKII ESITTELEMÄÄN 
5HAPEM KÄYTTÖÄ PELIOHJAIMIN JA 
NÄPPÄIMIN. 5E ASETTAA TARKKUUS- 
GRAFIIKKASI VUN 1, VÄRI VALKOINEN 
KOKO NORMAALI JA KIERTO NOLLA 


TEXT : HOME 

PRINT "ASETA PADDLET KESKIASE 
NTOON. " 

PRINT : INPUT "SHAPETAULUKON 

NIMI?";SH$ 
PRINT CHR$ (*4)"BL0AD";SH$",A 
S6000": POKE 233,96: POKE 23 
2,00 

HGR : HCOLOR= 3 : SCALE= 1 : RET= 
0:R0 = 0:S = 1:A = 1:0 = 1:X 

= 30 :Y = 30 
VTAB 21 : PRINT "S)CALE R)0T 
PRINT »PADDLET: SIJAINTI " : PRINT 
"PAINONAPIT: SH APEN VAIHTO" 
X = PDL (0):Y = PDL O) 
IF X < 10 OR X > 270 OR Y < 
10 OR Y > UO THEN 90 
REM REISTAA EDELLISEN MERKIN 

JA PIIRTÄÄ UUDEN 
XDRAU E AT X1, Y1 
ROT= RO: SCALE= S 
DR ALI A AT X,Y 
150 B = A 

160 REM TALLENTAA KOORDINAATIT P 
OISTAMISTA VARTEN 
X1 = X:Y1 = Y 

PADDLEN O KYTKIN 
FEEK ( - 16287) > 127 THEN 
A = A + 1 

REM PADDLEN 1 KYTKIN 
IF PEEK ( - 16286) > 127 THEN 
A = A - 1 
T = R:R = 32 
IF A < 1 THEN A = 1 
REM VIITTAUS MUISTIPAIKKAAN 
-16336 SIIRTÄÄ KAIUTTIMEN KA 
RTIDN TOISEEN ASENTOON 
X = PEEK ( - 16336) 
IF A > 50 THEN A = 50 
POKE - 1638i*,1 
REM MUISTIPAIKASSA -16368 DN 
NÄPPÄIMISTÖ STROBE JA -1638 
k NÄPPÄIMISTÖ DATAA (LOL) ELI 

ALLE 127 ARVOT) 
REM ONKO NÄPPÄINTÄ PAINETTU 
ASCII ARVO R-KIRJAIMELLE ON 
82 

IF PEEK ( - 1638*0 > 127 THEN 
POKE - 16368, O :R = PEEK ( 
- 1638*4) 


20 
30 

*+Q 

50 


60 


70 
80 

90 X 
100 

110 

120 
130 
1*40 


170 
180 
190 

200 
210 

220 
230 
2*40 


250 
260 
270 
280 


290 


300 


REM 
IF 


310 
320 


330 
3*40 
350 
360 


370 
380 


IF R = 82 THEN RO = RO + 16: 

• IF RO > *+8 THEN RO = O : 

REM MERKIN ( SHAPEN KIERTO 

n OIKEALLE 16 YLÖS 32 VAS 

EMMALLE **8 ALASPÄIN 

REM RO ON ROT < KÄÄNTÖ) APUMU 

UTTUJA 

REM ONKO PAINETTU S (ASCII 
ARVO 83) 
IF R = 83 THEN S -- i? + 1 ' ' ^ 
S > 3 THEN 5*1: 
REM S ON SCALEN APUMUUTTUJA 

GOTO 90 

REM MAHDOLLISET VALKOISET PI 
STEET POISTOSTA HUOLIMATTA J 
OHTUVAT PISTEEN KAKSINKERTAI 
SESTA PIIRTÄMISESTÄ 


KIRJALLISUUTTA: 


1. Roy E. Myers, Microcomputer 
GRAPHICS, ISBN 0-201-05092-7, 
Addison-litesley Publishing Company 

2. 32 Programmi con l 1 Apple, Tom Rugq 
Phil Feldmann, Franco Muzzio 

&c Edotore ISBN 88-702 1-155-X 

3. Computer-Assisted-Cartoqraphy, MBX* 
S. Monmonier, ISBN 
0-13-165308-3, Prentice Hall Inc. 
Enqleuood Clif f s, NJ.07632 

LEHTIÄ: 

MC, Micro, Microcomput inq , MB I ' , 
Practical Electronic, Mik i ortat.um , 
Prosessori, Tietokone, Redi O 
Electronics, Nibble, Call A.P.P.l.l, 
Popular Computing, l/alokyni, 
Tietoteknikka, Tietosnnnm; -1. , Hyt.i*. 

Yleisradion opetus-, dokumentti- Ja 
ajankohtaisohjelm.it. 

' B ... n k h* r, H 1 

j L H N n ;: ' "■' :> 

1 h v M H 2 2 Ö 

54 P. C D t *" ta H 1 ,., .. ... 

v - - „ . >* MMIIIlMlfllM •» 
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Aapi Juntura (vempain) 
Markku Siivola (teksti) 

VARAVIRTALÄHDE APPLEEN 


Eivät ole juuri madot kaiverrelleet vanhaa Qnenaa. Vaan virtalähde on 
ollut tyyppikiusa. Ensinnäkin sen kytkin. Älkää napsuttako sitä vaan 
laittakaa jatkojohtoon ulkopuolinen kytkin. Ja mikä pahinta - itse 
virtalähde, uusi maksaa Suomessa yli kaksi tuhatta, mutta esim. 
Englannista tilattuna kaiken kaikkiaan 6D0 mk. Tuhat markkaa 
pulittamalla saa Suomessakin kyllä toimivan energian antajan kun antaa 
vanhan romunsa pois vaihtona. 

Peukalonsa kämmenen laidalla omaaville on ao. kytkinkaava omiaan. Se 
on Aapi Junturan kynän jäljiltä, ja prototyyppi on todettu toimivaksi. 
Vain viisi volttia muodostetaan hakkuriperiaatteella supermodernilla 
piirillä LH 1605, jota saa ainakin oululaisesta FAAJOUTista 100 mk :n 
kappalehintaan. Mut jännitteet muodostetaan klassisilla 
regulaattoreilla. Mainittakoon vielä, että kuvan oikean reunan diodit 
ovat kaikki samaa merkkiä. 

Viisainta olisi rakentaa alueelliset varavirtalähteet. Esim. 
turkulaissi vissii on sen verta jotta kannattaa puuhata yhteinen 
paikallinen v^ralähde, joka sitten puskee energiaa ko. onnettoman 
Appleen niin kauan, kunnes saadaan eho tilalle. 

Tarkemmat kysymymykset vempaimen luojalle itselleen: Aapi 
Juntura, Viirinkankaantie 2U 963DD ROVANIEMI 30 p. 991 - 17^27 

P.S. Kuulkaa nikäs siinä on kun me rovaniemeläiset tunnumme hakkaavan 
teidät muut suomalaiset appleharrasta jat aktiviteetin määrässä ihan 
pystyyn? Eikö olisi jo teidän muidenkin aika näyttää mistä kana 
slurttaa kuten poikasina veikeän murteellisesti tapasimme sanoa? 



-20 


APPLELLA YHTEYS TDI5ELLE PUOLELLE MAAPALLOA. 


Tietoliikenne mikrotietokonetta hyväksikäyttäen ei ole vielä kovin 
yleistä. Suurin tietoliikenteen tarve on ollut lähinnä yrityksillä, 
joilla on asiakkaita tai orojekteja muualla maailmassa. Sähköiseen 
tiedonvälitykseen on käytetty tavanomaisia menetelmiä, kuten telexiä, 
mutta nyt yhä enemmän mykyaikaisempia menetelmiä. 

Tällä hetkellä sähköisessä tiedonvälityksessä on tapsi u 
huomattava hyppäys uuteen. Kuvaan ovat modernisoitune!-' xi en 

lisäksi tulleet TELETEX, VIDEOTEX yms. palvelut. Ne nopeuttavat 
tiedonsiirtoa ja monipuolistavat sitä monella tavalla» Olemassa olevia 
tietokoneverkkoja on käytetty lähinnä laskennallisiin tarkoituksiin, 
mutta ne soveltuvat myös erinomaisesti tavalliseen tietojen siirtoon. 

Tietoliikennekokeilumme tarkoituksena oli testata, kuinka 
APPLE-mikrotietokoneella onnistutaan yhteydenpidossa suuren 
järjestelmän kanssa ja vieläpä toiselle puolelle maapalloa. Tähän 
tarkoitukseen käytimme erästä maailman suurimmista tietokoneverkoista, 
jolla on nimenä MARK III. Verkkoon kuuluu kymmeniä suuria HOIMEYltfELL-, 
sekä IBM- tietokoneita, joita on mm. Hollannissa, ja USA:ssa. 

Käytössä oli APPLE //e -tietokone, joka oli varustettu APPLEn 
sarjaliitäntäkortilla, AMI-tietoliikenne-emulaattorilla, sekä 300 
Baudin modernilla. 


Yhteydenotto 

MARK III -järjestelmän keskittimet (konsentraattorit ) ovat 
Tampereella, Turussa ja Helsingissä. Valitsimme puhelimella Helsingin 
keskittimen numeron ja hetken kuluttua linjalta kuului kantoaallon 
ääni merkiksi, että voimme kytkeä laitteet linjaan. 

Aloitusmerkin saatuaan kytki keskitin yhteyden Clevelandiin, USAhan. 
Tietokone antoi huomiomerkin yllättävän nopeasti, vaikka yhteys 
oletettavasti muodostui Atlantin yli tietoliikennesateliitin kautta ja 
vaikka koneilla oli parhaillaan kuormituksen huippukohta. Tunnusten ja 
salasanojen lähettämisen jälkeen pääsimme tietokoneen käyttäjiksi. Sen 
verran meillä oli tietoa, että kone jolle olimme yhteydessä on USAissa 
mutta yhtä hyvin se olisi voinut olla Euroopassakin. Mihin noista 
kymmenistä koneista olimme saaneet yhteyden ei tullut ilmi lainkaan. 


Käyttö 

Tästä eteenpäin olisivat näiden jättiläistietokoneiden 
ohjelmointikielet ja varusohjelmistot olleet meidän käytössämme. 
Halusimme kuitenkin testata, millaisia mahdollisuuksia MARK I I I 
-verkolla on sanomanvälityksessä. Kutsuimme tässä tarkoituksessa 
QUIK-COMM -järjestelmää. Ohjelmistolle annettujen ohjauskomentojen 
jälkeen tapahtui sanoman lähetys. Sitä ennen olimme ottaneet 
tekstinkäsittelyjärjestelmällä tehdyn sanoman ANI-oh jelmiston 
muodostamaan puskuriin APPLE-tietokoneessa. Sieltä tuo sanoma |j 
käskyllä varsin lyhyen ajan puitteissa jonnekin MARK III -tietokoneen 
tietovälineelle, toiselle puolen maapalloa. 
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Sanomamme vastaanottaja olisi voinut olla vaikkapa Australiassa. Tässä 
tapauksessa lähetimme sen vain itsellemme ja kun sanoma hetken 
kuluttua noudettiin postilaatikosta, oli se täsmälleen lähetetyssä 
muodossa. 

Tuon viestin olisimme voineet naputella MARK III:een myös tavalliselta 
päätteeltä, jopa telexkoneella olisimme saaneet sanomamme tietokoneen 
postilaatikkoon. Tässä tapauksessa sanoma valmisteltiin tekstinkäsit- 
telyohjelmalla APPLErssa ja kun kaikki oli valmista, siirrettiin se 
lyhimmässä mahdollisessa ajassa tietokoneelle USA:han. 

Yhteysajan ja sen kustannusten minimoimiseksi työstimme sanoman 
etukäteen APPLEssa. Varsinaiset Iin jakustannukset ovat tässä 
liikenteessä mitättömät. Ne muodostuvat paikallispuhelun hinnasta, 
joka Helsingissä vielä jonkin aikaa on yhden maksusykäyksen suuruinen 
ajasta riippumatta. Modernin nopeus on se tekijä, joka määrää kuinka 
pitkän ajan viestimme lähetys kestää. 


APPLEn AIMI-tietoliikenneohjelmistossa on lisäksi makro-ominaisuus, 
jolla muistiin voidaan tallettaa valmiiksi useinkin monimutkaiset 
tietokoneeseen sisäänkirjoittautumisen proseduurit. V/ain yhtä 
näppäintä painamalla lähetetään linjalle haluttu merkkijono, 
virhemahdollisuudet poistetaan tältäkin osin. 


QUIK-COMMin ominaisuuksia. 

QUIK-COMM -ohjelmiston periaate on sama kuin postilla. Lähettäjä 
lähettää viestii postilaatikkoon, josta vastaanottaja sen voi 
halutessaan noutaa. Kuten kirjeidenkin kohdalla, lähettäjä maksaa 
postimaksun. Niin tässäkin vain lähettäjää veloitetaan. Sama viesti 
voidaan yksinkertaisella käskyllä monistaa myös useaan elektroniseen 
postilaatikkoon. 

Tällä järjestelmällä on keskittimet yli 750 kaupungissa eri puolilla 
maapalloa. Sanan sanoman voi lähettä jopa 600 osoitteeseen yhdellä ■ 
kerralla. Tiedonsiirron nopeus on omaa luokkaansa verrattuna 
tavanomaisimpiin menetelmiin. 

Tavallisen kirjeen perille menoon USArhan saattaa kulua parikin 
viikkoa. Erikoispalvelulla saa kirjeensä 1-2 päivässä Tukholmasta 
USArhan. Telexverkko on hidas mutta kylläkin huomattavan laaja. 
Lähetysnopeus on **00 merkkiä minuutissa. 


Mitä tiedonsiirto sitten maksaa? 

Teimme karkean arvion siirron kustannuksista A^-sivun mittaisen tiedon 
osalta. Telexillä USArhan tuo sanoma maksaisi yli sata markkaa. MARK 
III -järjestelmän kautta sanomalle tulisi hintaa hieman yli 20 
markkaa. Melkoinen ero, vai mitä? 

Kummassakin järjestelmässä on kohtalaiset liittymiskustannukset. 
Liikennöinti sitten on aivan eri hintaista. 

Tietoliikenne avaa mikrotietokoneidenkin käyttäjille mahtavia 
mahdollisuuksia. 


Niiden selville saaminen saattaa olla työlästä. Monissa tapauksissa 
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tutkiminen kuitenkin saattaa kannattaa. 


ANI-tietoliikennepaketin valmistaja on ALGEBRA DATA KY, Helsinki ja 
sitä saa APPLEn myyjiltä, sekä valmistajalta. MARK III -palvelua myy 
NOKIA DATA. 


HELSINKI 9. KESÄKUUTA 1983 


Markku Metsämäki 


5 REM 

SO UHAT DID YOU EXPECT? 
MARKKU SIIVOLA 1962 


10 HOME 

20 FOR N = 1 TO i+0 : VTAB I(\IT (2 
3 * RND (D) + 1: HTAS INT 
(39 * RND (1)) + 1: PRINT " 
?": NEXT 

30 A$ = "SO LIHAT " : B$ = "DID YOU": 

C$ - "EXPECT" 
UU SPEED= 230 
50 FOR U = 1 TO 39 
60 POKE 33, U 

70 FOR N =0 TO 2 : PRINT A$ + " 

" + B$ + " " + C$ + " " ; : NEXT 
N 

80 NEXT U 

90 SPEED= 200 

100 POKE 33,1 

110 FOR L = O TO 39: PRINT " " + 

A$ + " " + B$ + " " + C$: POKE 
32, L: NEXT 

120 POKE 32,0: POKE 33,^0: SPEED= 
255 

130 FOR N = 1 TO 1000: NEXT 

UO FOR X = 2 TD kB: POKE 33, X: HOME 

: NEXT 
150 RUN 


5 REM 


SO UHAT DID YOU EXPECT 
JIM BAIMZ 

CALL-A.P.P.L.E NOU 1982 


10 

TEXT : HOME : GR 


20 

POKE - 16302,0: CAL L - 1998 

30 

FOR C = 0 TO 6 


<40 

FOR B - 0 TO 6 


50 

FOR A = 0 TO 39 STEP 

2 

60 

HPLOT C,0: ULIN 0,^7 

AT A 

70 

HPLOT B,0: V/L IN 0, V/ 

AT A 4 1 

80 

NEXT A,B,C: GOTO 30 


5 

REM 



SO UHAT DID YOU EXPECT 
BILL SANDERS 
APPLE PRESS 
CALL-A.P.P.L.E. MAY 82 

10 TEXT : HOME : GOSUB 1000 
20 END 

1000 FOR I = 38 TO 1 STEP - 1 : FOR 
3 = 1 TO 100: NEXT : HTAB I: 
PRINT "A ";: NEXT : HTAB 2: 
PRINT "HIT ANY KEY TO CONTI 
NUE->";: GET A$: RETURN 
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Tero Sand: 

DUMPPAUKSESTA 


1. KUV/ARUUTUDUMPPAUS 


Luitteko syys -82 Qnen a hyveestä jutun VAPAUTTA JA TEKSTINLUKIJA? 
Siinähän kerrottiin kuinka dumpataan T-fileen sisältö kuvaruutuun. 
Entä samassa lehdessä ollutta KONEKIRJOITUS 3f- PAINANTA, jossa 
RUUTUPAINO-kohdan alla kerrotaan kuvan tyhjentämisestä printterille? 
Peräti kolme tällaista rutiinia löytyi lehden lopusta. 

No tämähän on vallan hieno juttu, ovat ehken jopa laadukkaitakin 
ohjelmia. Vahinko vain etten minä niitä niin kovasti kaivannut; 
FILEDUMPin voi tehdä kahden rivin Applesof t-oh jelmallakin - hitaammin 
se tietysti käy - ja kuvaruutukir joitindumppereita näkyy olevan 
yhtä paljon kuin ikiliikkujien keksijöitäkin. 

M itä minä sitten haluan? Minulla oli tarve lähinnä F ILEDUMP- toiminnan 
käänteisominaisuudesta : kuvaruudun dumppaamisesta diskille T-fileeksi. 
"No mitä ihmeen hyötyä siitä voisi olla?", voi joku kysyä. Minäpä 
sanon yhden jos esimerkiksi haluaa napata tietyn kuvaruudullisen 
tekstinkäsitnelylaitteeseen. Siksi minä sitä kaipasin. Pelkästään 
tässä on tarpeeksi syytä tietokoneaiheista kirjoittavalle 
tyypille. Ja joskus tulee tilanteita, joissa haluaisi säästää 
kuvaruudun talteen, eikä tuhlata siihen paperia. Kaiken lisäksi on 
helppo dumpata T-file printterille, joten tätä voi käyttää siihenkin, 
joskin välikäden kautta. 

Aikani odoteltuani ja vihdoin nähdessäni IRQ:hun perustuvan 
kuvaruutudumpperin - aivan oikein, printterille - minä kyllästyin. 
Ellei kukaan muu tähän pysty, on itse yritettävä. 


OHJELMASTA 

Päätin tehdä ohjelmani konekielisenä, koska Applesoft- tai 
Integer-kielinen ohjelma sitoo käyttäjän vain siihen yhteen ohjelmaan, 
ja ellet pysty tekemään mitään, niin ilmestyykö ruudulle jotakin 
säästämisen arvoista? Assemblykielinen ohjelma taas voi majailla 
muistissa pitkän aikaa, ja tarvittaessa pelkkä CALL riittää. 

Ohjelma olikin minulle huomattavan vaikea, knska en tiennyt lainkaan, 
kuinka DOSsia käytetään konekielessä. Itse asiassa, tämä nykyinen 
ohjelma on kolmas yritys; ensimmäinen oli 1982 keväällä, toinen tämän 
vuoden helmikuussa ja vihdoin nyt tämä viimeinen, eli se onnistunut 
versio. Tässä työssä apuna Dli kolme mainiota kirjaa, joista enemmän 
lopussa. 


HUOMIOITA 

Jotta ohjelma voisi kysyä fileen nimen, ilmoittaa ERROReista ym., 
täytyy ruutu luonnollisesti aina välillä tyhjentää. Tämä taas on* 
sikäli mielenkiintoinen juttu, että ruutua pyyhkäistessä tuhoutuu 
luonnollisesti alkuperäinen säästettävä tieto. Mitä tehdä? 


Oli vain kaksi vaihtoehtoa: 1) kirjoittaa kakkossivulle tai 2) siirtää 
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koko kuvaruutu turvaan (kuvaruutualue = $400-$7FF, kakkDssivu taasen 
$80D-$AFF ) . Kakkossivulle kirjoittaminen on huomattavan hankalaa; 
kirjaimet pitää tallentaa suoraan kakkossi vualueelle, tavallinen 
tulostus ei onnistu. Lisäksi Applesof t-oh jelma majailee kakkossivun 
päällä ja lisäksi eräs diskiutility tallentaa tietoja $600 -$900 : aan. 
Myt, koska monitorissa on valmiina muistin siirtorutiini , oli valinta 
selvä. Ohjelmassa siirrelläänkin kuvaruutua eestaas moneen kertaan. 

Ohjelman ollessa jo muuten valmis, säilyi eräs ongelma pitkgän: aina 
palatessa Applesoftiin tämä heitti 7SYMTAX ERROR tai ?SV : ,x ERROR If\l 
54011 tai vastaavaa. Ilmoituksen syy selvisi päättelyn avuDa v/arsin 
nopeasti: Kun kirjoitat CALL 768 tai vastaavaa, tämä lauss -f 
näppäimistöbufferiin eli alueelle $200-$2FF. Nyt, koska oh jelmassakin 
kysytään nimeä, on buff erissä jotakin roskaa näin Applesoft- tulkin 
kannalta. Ongelman ratkaisu aiheutti hieman päänvaivaa, mutta sakin 
selvisi sillä, että ohjelman lopuksi nollataan koko bufferi. Nolla 
näet on merkki lauseen päättymisestä. 

Huomatkaa, että minkä tahansa konekielioh jelman , joka tulostaa jotakir 
kuvaruudulle, on heti aluksi säästettävä luku joka sijaitsee 
$AA59:ssä, ja lopuksi palutettava se takaisin. Ellei näin tee, kone 
'hirttää 1 itsensä, mikäli ohjelmaan on menty BASICistä. 

Seuraavassa yleinen kartta ohjelmasta: 

Rivit 159-188: Eri DOS-osoitteiden ini tial isointi 
Rivit 193-2-26.: Slotin & drive-numeron otto 

Rivit 230-266: ^fileen nimen kysyntä, testaus sekä SPACE jen 

lisääminen nimen jatkoksi, mikäli nimen pituus < 30 
Rivit. 279-303.: Mlecr, avaaminen sekä testaus, onko sennimistä jo 

.. zd^BTiESSSa 

Rivit 307-;;-~;r . r-i"i todellinen avaaminen, ruudun dumppaus sekä 

«Bliniin fileen VERIFIOINTI 1. testaus 
Rivit 365-395 : k^vcruudun dumppaaminen 
Rivit 379-395: yhden rivin dumppaaminen 
Rivit 399-416: fileen avaaminen T-fileenä 

Rivit 420-424: Fileen sulkeminen, eli kirjoita diskille viimeiset 
tiedot 

Rivit 429-444: Diski-ERRORin ilmoitus 

Rivit 448-465: Viestin kirjoitus. Tämä alirutiini toimii sen 
perusteella, että joka JSR:n yhteydessä 
palaamisosoite - 1 on STACKissa ($100-$1FF) 

Rivit 471-502: Ilmoita käyttäjälle, että diski on täynnä ja kysy 
lisäohjeita 

Rivit 491-502: Kysy, haluaako käyttäjä aloittaa uudestaan vai lopettaa 

Rivit 506-512: Tallenna diski- ja slot-arvot DOSsiin. 

Rivit 516-519: Hae ja säästä virhekoodi ; koodi on 0 jos kaikki on ok 

Rivit 524-528: Hyppää DOSsiin ja toteuta käyttäjän toiveet 

Rivit 535-545: Ilmoita DOSsille fileen nimen paikka sekä kopioi nimi 

tähän paikkaan 
Rivit 549-553: Kuvaruudun si irtorutiinit 
Rivit 557-562: Odota RETURIMia 

Rivit 569-586: Lopetus. Nollaa näppäimistöbuff eri sekä aseta Applesoft 

niin, että siihen voi palata 
Rivit 590- : Nimen & eri arvojen taltiointi 
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OHJELMAN KÄYTTÖ 


Ohjelmaa on hyvin helppo käyttää. Ensiksi, kunhan se on kirjoitettu ia 
säästetty, täytyy se BRUNnata, siis J J 

BRUIM SCREEN TO TEXTFILE DUMPER 

□hjelma initialisoi &-vektorin, CTRL-Y-vek torin sekä $300 :n, joten 
ohjelmaan pääsee monitorissa ollessa CTRL-Y:llä tai 300G'llä 
GASICistä Rrlla (vain Applesoft.') tai CALL 768. sen jälkeen ohjelma 
kysyy sintit, driv/et jne. Siitä pääsee pois paitsi RESETillä - EI 
Suositeltavaa dumpattaessa» - myös CTRL-C <RETURI\I> :11a , kun ohjelma 
kysyy T-fileen nimeä. Mikäli ette omista macro-assembleria, voi 

inittaa rivinumerosta vasemmalle olevan hex dumpin ia säästää 
BSAVI SCREEN TD TEXTFILE DUMPER, A$916^, L$49C. 


2. HEX DUMP DUMPPAUS 

THrnä lyhyt ohjelma dumppaa hex alueen samalla formaatilla kuin 
monitorikin tekee, siis xxxx.yyyy <RE T> tuottaa samannäköistä tekstiä 
"h irlii.,, m, ..s-.cmhlnit.u alkavaksi $30D:sta, mutta sen voi sen 
i»'liiknii.u.niMkyvyn vuoksi siirtää minne vain. Ohj e i maa käytettäessä 
'"'Vt VV .«lkiififinitp laittoa $6,$7:ään ja loppuosoite $S,$9:ään. 
käyttöalueesta voisi mainita alueen tallentamisen T-fileelle Tämä kä< 
• ".iMinMki.i li.Mir.mv/iiii Applesoft-ohjelman avulla: 


III Hl I. h >\ : RfM OTGINNING OF HEX DUMP DUMPER 

20 D$ ChR$ (13) ♦ CHR$ (h): REM <RETL»RI\!> + C0NTR0L-D 

10 [MflUI "TEXTFILE NAME " ; f\IAME$ 
Ml [NPII1 "START OF BLOCK ";ST: INPUT 

"I MD III F.OCK " ;EI\I 
50 PRINT Di;" OPEN ";NAME$: PRINT 

D$;"uNITE " ; NAME$ : POKE 7, ST 
/ 256: POKE 6, ST - PEEK (7 

) * 256 : POKE 9, EN / 256 : POKE 

8, EN - PEEK (9) * 256 
60 CALL BEG 
70 PRINT D$;"CL0SE" 


Macro-assembleria omistamattomat katsokaa ylläolevat oh ieet ia sääcjtn 
BSAl/E HEX DUMP DUMPER, A$300, L$5 E. ' J 


YHTEENVETO 


Tarinan opetuksena on lähinnä tämä: mikäli haluamaasi ohjelmaa ei 
löydy kaupasta tahi lehdistä, TEE SE ITSE' Minä aloitin tämän 
ohjelman teon n. vuosi sitten, eli aikaa voi mennä. Ellei itse yritä, 
ei takuulla opi mitään, ja useimmiten jokin ohjelma poikii lisää 
ideoita, esimerkiksi HEX DUMP DUMPER on SCREEN TO TEXTFILE DUMPERin 
sivutuote. Yrittämisen kannattavuuden huomaa myös tästä: aloittaessan 
en tiennyt DOS-rutiineista paljon mitään; nyt nimeni on PALVELEVA 
PUHELIN-palstalla kohdassa DOS. 

Lopuksi muutama hyvä kirja sille, joka aikoo perehtyä todenteolla 
a) Applesoftiin, b) DOSsiin, c) Applen ROM-rutiineihin tai kukaties 
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kaikkiin edellisiin. Applesof tista : Ali About Applesoft, hinta $7.00. 
^3 sn Rn^ ea f f^f^' $16 - 5 ° S6kä ilm ^ti AH About DOS, 
The Guide to liJhere In The Apple, $8.00. Kaikkia edellisiä saa 

A :.- P ;. L ; E - :lta ' maailman suurimmalta käyttäjä järjestöltä (yli 16000 
jäsentä), osoitteesta 

A.P.P.L.E. 

212^6 68th Av/e. S. 
Kent, WA 98032 
U.S. A. 

Huomattakoon, että he myyvät VAIN JÄSENILLE. Mikäli joku haluaa 
liittyä, osoite on sama kuin ylläoleva, ja liittymis- ynnä jäsenmaksu 
on $bb ensimmäiseltä vuodelta. Enemmän tietoa A.P.P L E -st" saa 1982 
syyskuun Qnenahy veestä (osoite on sen jälkeen muuttunut).' Ilman äsken 
mainitsemiani kirjoja ei tästäkään ohjelmasta olisi tullut mitään^ 
varsinkaan ilman Beneath Apple DOSsia. Huomattakoon, että B.A.D ei ole 

^^rpt^T^ 1 ^ 3 ' - SE Vaatii raRkkaa lukE?mist a, eikä se mene päähän 
ilman etta lukee kirjan aika ajoin uudestaan. 


:ASM 


2 
3 
U 
5 
6 
7 
8 
9 

10 
11 
12 


SCREEN TO TEXTFILE DUMPER 

BY TERO SAND 

THIS PROGRAM DUMPS THE 
SCREEN TO A TEXTFILE bJHOSE 
NAME THE USER CHOOSES. 

17/APR/1983 


(Huom: printte- 
ristä johtuen 
□n tähdet pois- 
tettu huomau- 
tusten edestä 
ja "risuaita"- 
merkki teht.y 
käsin) 


14. 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2U 

25 
26 

27 
28 
29 


31 
32 
33 


ORG $916^ 
GENERAL SUBROUTINES 


MOVE 

COUT 

PRBYTE 

CR0UT1 

GETLN1 

RDKEY 

HOME 

BASCALC = 


BASIC 
DEST 


30 SCRN 


LENGTH 

CTRLY 

AMPER 


$FE2C 
$FDED 
$FDDA 
$FD8E 
$FD6F 
$FD0C 

$FC58 
$FBC1 


$E000 
$6000 

$^00 

$3 FF 
$3F8 
$3F5 


; START OF CODF 


MOVE BLOCK UI Ml MORY 
OUTPUT A CHANAIM l R 
OUTPUT A HEX HY II 
RETURN 

SAME AS INPUT 

READ A CHAR; SAMI (\\ i 

GET 

;GUESS 

;CALCULAU UI I | ND UI 
CURSOR POS 


;TEMPDRARY STORAGE AREA 

;STAR1 Of SUNI I N D/U A 

IN MEMORY 
; LENGTH OF » 
;CTRL-Y JUMPS HERE 
;8 JUMPS HFRF 
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34 

BUFFER = 

$200 

;KBD INPUT BUFFER 

35 



36 

DOS SUBROUTINES & ADDRESSES 

37 




38 

FILEBUF = 

$AA75 

•F Tl F l\l AM F niirrrD 
,r ILL iv Hr il öur r LH 

39 

IOHOOK 

$AA59 


40 

FILPARAM - 


• rnfUT A TfUC nr\D nr 
, LUIv I Hllvb HUK Ur 




PURflMnrp i tct 
rH n MrIL I LK Llbl 

4i 

EIMTERMAIM * 

$3D6 






43 

2ER0 PAGE 

LDCATIONS 


44 




«i5 

TXTPTR _ 

Cp CO 

»DflTIMTC TD rvir~\/-r r- n 

, PUIN Ib IU NEXT FP 




ruAOAPTrn 
LHMKmL I LK 

46 

A4L = 

tty.9 

• IICCT» Dv n/iniir 
, UbLD dY MUl/L 

47 

A2L 

$3E 

1» 

48 

AU 

$3C 

n 

49 

BASL 

$28 

•ADR OF CURRENT TEXT 




LINE 

50 

CV 

$25 

CUR50R'S l/ERTICAL 




POSITION 

51 

PARANI 

8 


52 

TEMP1 

0 


53 




5*4 

DOS F ILE 

MANAGER »S PARAMETER 

55 

LIST. GEIMERAL FOR MAT 


56 




57 

CALTYP 

0 :CALL TYPE 

58 

SUBCAL * 

1 ; 

SUB-CALL TYPE (READ 




URITE) 

59 

RETCODE = 

10 j 

RETURN CODE 

60 

UJORKBUF = 

12 ; 

UJORKAREA BUFFER 

61 
62 

DATABUF = 

16 ; 

DATA SECTOR BUFFER 

63 

PARAMETER 

LIST'S FIRST BYTE BY 

64 

CALL TYPE 



65 




66 

OPEN 

1 


67 

CLOSE 

2 


68 

URITE 

4 


69 

POSITION = 

10 


70 

l/ERIFY = 

12 


71 

DELETE = 

5 


72 




73 

PARAMETER 

LIST'S BYTES 2 

-9 FOR 

74 

OPEN 



75 



t 

76 

RECLEN 

2 ;REC0RD LENGTH 

77 

VOLNUM 

4 ;V/OLUME NUMBER 

78 

DRIVE 

5 


79 

SLOT 

6 


80 

FILETYPE * 

7 


81 

FILEADR = 

8 ; ADR OF F ILE NAME 



BUFFER 

82 




83 

PARAMETER 

LIST'S BYTES 2 

-9 

84 

FOR URITE 



85 




86 

SINGLBYT = 

8 ;SINGLE BYTE TO BE 


URITTEIM 
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87 

88 

89 

90 

91 

92 

93 

3k 

95 

96 

97 

98 

99 

100 

101 

102 

103 

105 
106 
107 
108 

109 
110 
111 

112 
113 
1U 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 


FILE TYPE CODES 
TEXT = O 
ERROR CODES 


FILIMTFIMD 
VOLMISM 


DEFIIME MACROS 
DO O 


;FILE IMOT FDUND 
;VOLUME MISMATCH 


; TURIM OF F ASSEMBLER 


MACRO FOR STORING AN ADDRE5S 
INTO FILE MANAGER 'S PARAMETER 
LIST 


TRANSFER MAC 
LDA 
STA 
INY 

LDA 
STA 
INY 

«< 


Ä1 

(PAR AM), Y 
Ä1+1 

(PARAM), Y 


; NAME OF MACRO 
;LOAD LSB OF ADDRESS 
;STORE IT 
; INCREMENT INDEX 
REGISTER 

;LOAD MSB OF ADDRESS 
;STORE IT 
; INCREMENT INDEX 
REGISTER 
;EXIT MACRO 


MACRO FOR MOVING A BLOCK 
OF MEMORY TO A NELI PLACE 

ME M OM OVE MAC 

LDA *>Al 

STA A1L+1 

LDA ttt<Ä1 

STA A1L 

LDA #>fc 

STA A2L+1 

LDA 3xÄ2 

STA A2L 

LDA #>Ä3 

STA A^L+1 

LDA it<Ä3 

STA A^L 

LDY *0 

JSR MOI/E 
«< 


MACRO NAME 

STORE START OF SOURCE 
INTO MEMORY 


; STORE END OF SOURCE 
;INTO MEMORY 


;STORE DESTINATION 
;INTO MEMORY 


;D0 IT.' 
;EXIT MACRO 


916^: A9 ^C 


13<4 

135 
136 
137 
138 
139 

1<+1 
V*2 


FIN 


; TURN ASSEMBLER ON 
AGAIN 


INIT $300, AMPERSAND V/ECTOR 
AND CTRL-Y VECTQR SO USER 
CAN ENTER THIS ROUTINE V/IA 
$300G, CTRL-Y (MONITOR) OR 
& (APPLESOFT) 


BEGIN LDA i^C 


;CODE FOR "JMP" 
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9166: 

A2 91 

143 

LDX 

1t>START 

;HI-ORDER OF ADDRESS 

9168: 

AD 8E 

144 

LDY 

=#<START 

;LO-ORDER 

916A: 

8D F5 03 

145 

STA 

AMPER 


916D: 

8D F8 03 

146 

STA 

CTRLY 


9170: 

8D 00 03 

147 

STA 

$300 


9173: 

BC F6 03 

148 

5TY 

AMPER+1 


9176: 

8C F9 03 

149 

5TY 

CTRLY+1 


9179: 

8C 01 03 

150 

STY 

$301 


917C: 

BE F7 03 

151 

5TX 

AMPER +2 


917F: 

8E FA 03 

152 

5TX 

CTRLY+2 


9182 : 

8E 02 03 

153 

STX 

$302 


9185: 

60 

154 

RTS 





155 






156 

ADDRESSES OF DIFFERENT 

BUFFERS 



157 




9186: 

00 % 

158 

DSBUF DA 

$9600 


9188: 

00 97 

159 

T5LBUFF DA 

$9700 


918A: 

00 98 

160 

DQRKBUFF DA 

$9800 


918C: 

2D 98 

161 

NAMEBUFF DA 

$982 D 




162 




91SE: 

AD 59 AA 

163 

START LDA 

IDHOOK 

;SAl/E I/O HOOK 

y n 1 : 

oc; (T7 
ÖD U / 


STA 

PARAM-1 


9193: 

A5 Bö 

165 

LDA 

TXTPTR 

;SÄVE CURREMT POS OF 






TXTPTR 

9195: 

48 

166 

PHA 


;0N THE STACK 

9196: 

A5 B9 

167 

LDA 

TXTPTR+1 


9198: 

48 

168 

PHA 



9199: 

A5 25 

169 

LDA 

CV 

; STORE CURSOR-S VERT 






POS 

919B: 

8D FD 95 

170 

STA 

TEMP+1 




171 






172 

IIMITIALIZE 

POIIMTERS AND FILE 



173 

NAME BUFFER 




174 




919E: 

AD 0E 9D 

175 

LDA 

FILPARAM 

; GET PARAMETER LIST' 

91 A1 : 

85 08 

176 

STA 

PARAM 

; ADDRES AND SAVE 

91 A3: 

AD OF 9D 

177 

LDA 

FILPARAM+1 

;IT FOR LATER USE 

91A6: 

85 09 

176 

STA 

PARAM+1 



179 
180 
181 
182 


STORE BUFFERS' ADDRESSES INTO 
FILE MANAGER 'S PARAMETER LIST 


91 A8: 

AO OC 

183 

LDY 

*FUIORKBUF 




184 

»> 

TRANSFER 

UORKBUFF 

91 AA: 

AD 8A 91 

184 

LDA 

WORKBUFF 

;LOAD LSB OF ADDRESS 

91 AD: 

91 08 

184 

STA 

(PARAM), Y 

;STORE IT 

91 AF: 

C8 

184 

INY 


; INCREMENT INDEX 






REGISTER 

91 BO: 

AD BB 91 

184 

LDA 

W0RKBUFF+1 

;LOAD MSB OF ADDRESS 

91 B3: 

91 08 

184 

STA 

(PARAM), Y 

; STORE IT 

91 B5: 

C8 

184 

INY 


; INCREMENT INDEX 






REGISTER 



184 

«< 


;EXIT MACRD 



185 

»> 

TRANSFER 

TSLBUFF 

91B6: 

AD 88 91 

185 

LDA 

TSLBUFF 

;LOAD LSB OF ADDRESS 

91 B9: 

91 08 

185 

STA 

(PARAM), Y 

; STORE IT 

91 BB: 

C8 

185 

INY 


; INCREMENT INDEX 






REGISTER 

91 BC: 

AD 89 91 

185 

LDA 

TSLBUFF+1 

;LOAD MSB OF ADDRESS 
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91 BF : 91 08 

185 

ST A 

(PARAM), Y 

91 C1: 

C8 

185 

INY 



inc 
1Ö5 

«< 


91C2: 

AO 10 

186 

LDY 

#DATABUF 



187 

»> 

TRANSFER 

91 CU : 

AD 86 91 

187 

LDA 

DSBUF 

91C7: 

91 08 

187 

STA 

(PARAM) , Y 

91 C9: 

CS 

187 

INY 

91 CA: 

AD 87 91 

187 

LDA 

DSBUF+1 

91 CD: 

91 08 

187 

STA 

(PARAM), Y 

91 CF: 

C8 

187 

IIMY 



187 

<« 


91D0: 

20 5E 95 

188 

JSR 

MOI/EDUT 


189 
190 
191 


GET SLOT & DRIVE 


91 D3: 

20 58 FC 

192 

DE UI CES 

JSR 

HOME 

91D6: 

20 89 SU 

193 


JSR 

MSROLJT 

1 Ii_I(_jULJ 1 

91 D9: 

C5 CE DU 





91 DC: 

C5 D2 AO 





91DF : 

D3 CC CF 





91E2: 

W AD AS 





91 E5: 

B1 AD B7 





91 E8: 

A9 AO AD 





91 EB: 

BE AO 

194 


ASC 

"EIMTER E 

91 ED: 

00 

195 


HEX 

00 

91 EE : 

20 OC FD 

196 

GETSLOT 

JSR 

RDKEY 

91 F1: 

38 

197 


SEC 


91 F2: 

E9 BO 

198 


SBC 

#$B0 

91 F4: 

C9 01 

199 


CMP 

=*1 

91 F6: 

90 F6 

200 


BLT 

GETSLOT 

91 F8: 

C9 08 

201 


CMP 

m 

91 FA: 

BO F2 

202 


BGE 

GETSLOT 

91 FC: 

8D FF 95 

203 


STA 

SLT 

91 FF: 

20 DA FD 

204 


JSR 

PRBYTE 

9202: 

20 89 9U 

205 


JSR 

MSGOUT 

9205: 

8D 

206 


HEX 

8D 

9206: 

AO AO AO 





9209: 

AO AO CU 





920C: 

D2 C9 D6 





920F: 

C5 AO A8 





9212: 

B1 AF B2 





9215: 

A9 AO AD 





9218: 

BE AO 

207 


ASC 

DR 

921A: 

DO 

208 


HEX 

00 

921B: 

20 OC FD 

209 

GETDRIt/E JSR 

RDKEY 

921E: 

38 

210 


SEC 


921F: 

E9 BO 

211 


SBC 

=*$B0 

9221 : 

C9 01 

212 


CMP 


92 23: 

90 F6 

213 


BLT 

GETDRIUE 

9225: 

C9 03 

214 


CMP 


92 2 7: 

BO F2 

215 


BGE 

GETDRIUE 

9229: 

8D FE 95 

216 


STA 

miv 

922C: 

20 DA FD 

217 


JSR 

PRBYTE 

922 F: 

20 89 9U 

218 


JSR 

MSGOUT 

9232: 

8D 8D 8D 

219 


HEX 

8D8D3D 

9235: 

C1 D2 C5 






;STORE IT 
; IIMCREMEIMT INDEX 
REGISTER 
;EXIT MACRO 

DSBUF 
LOAD LSB DF ADDRESS 
STORE IT 
IIMCREMEIMT IfMDEX 
REGISTER 

LOAD MSB OF ADDRESS 

STORE IT 

IIMCREMEIMT INDEX 

REGISTER 
;EXIT MACRO 
;SAV/E SCREEN 


;DISPLAY MESSAGE 


;GET INPUT 

;CONUERT IT TO A NUMBER 


;WITH LIMITS 


STORE IT 
PRINT IT 
NOU THE DRIVE 
RETURN 


DRIV/E (1/2) -> " 
; GET INPUT 


STORE IT 
PRINT IT 
MAKE SURE 


IT'S CORRECT 
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92 36: 
923B: 
923E: 
92*41 : 
92*4*4 : 
92*47: 
92*49: 
92*4B: 
92**E: 
9250: 
9252: 


AD 09 CF 
D5 AD D3 
05 D2 C5 
AD AB D9 
AF CE A9 
AD D9 
88 00 
20 0C FD 
C9 CE 
DO 03 
D3 91 


9255: 
9258: 
9258: 
925E: 
9261 : 
926/4: 
92 67: 
926A: 
926D: 
9270: 
9272: 

9273 
927*4 
9275 
9278 
9279 


AD 

CD 


20 58 FC 
20 89 9** 
C5 CE Oh 
C5 D2 AD 
D** C5 D8 
DU C6 C9 
CC C5 
CE C1 
C5 AO AD 

: BE AO 

: 00 

: 08 
: UB 

: 20 6F FD 
: 68 
: 28 


220 
221 
222 
223 
22*4 
225 
226 
227 
226 
229 
230 


ASC "ARE YDU 5URE (Y/N) Y" 
HEX BBOO 


JSR RDKEY 

CMP 4*- "N" 

BNE CLRSCRN 

JMP DEVICES 

GET FILE NAME 

CLRSCRIM JSR HOME 

JSR MSGOUT 


;GET INPUT 
;NOT SATISFIED 


; CLEAR SCREEN 


927A: 
927D: 
927F: 


AD 00 02 
C9 83 
DO 06 
9281 : 20 7C 95 
928*4: **C BB 95 
C9 C1 
90 CA 
C9 DB 


9287: 
9289: 
928B: 


928D: BO C6 
928F: EO 20 


231 
232 
233 
23*4 
235 
236 
237 
238 

239 
2*40 
2*41 
2*42 
2*43 

2*4*1 

2*4 5 
2**6 
2*f7 
2*+8 
2*49 


ASC "ENTER TEXTFILE NAME -> 
HEX 00 


INPUT 


PHP 
PH A 
JSR 
PLA 
PLP 


LDA 
CMP 
BNE 
JSR 
JMP 

DONTQUIT CMP 
BLT 
CMP 
BGE 


GETLN1 


BUFFER 
*-$83 
DONTQUIT 
MOVBACK 
QUIT 
4P»A" 
CLRSCRN 
#"Z"+1 
CLRSCRN 


9291 : 90 02 250 

9293: A2 1F 251 

92 95 : 8E FC 95 252 

9298: A2 00 253 


CPX #32 

BLT NTTOOLNG 

LDX #31 

NTTOOLNG STX TE MP 
LDX 


929 A: BD 00 02 
929D: 9D DE 95 
92 AD: E8 
92 A1: EC FC 95 
92A*4: DO F*4 
92 A6: EO 1F 
92 A8: FO O A 
92 AA: A9 AD 


25*4 
255 
256 
257 
258 
259 
260 
261 


MOl/ENAME LDA 
ST A 
• INX 
CPX 
BNE 
CPX 
BEQ 
LDA 


SPACES 


BUFFER, X 
FILENAME, 

TEMP 

MOUENAME 
^31 

BCKMOVE 
AD 


;SAVE PROCESSOR STATUS 
;SAV/E ACC 

;RESTORE ACC 
;RESTORE PRDCESSDR 
STATUS 

;GET FIRST CHARACTER 
;CTRL-C 


; AND TEST IF ALPHABETIC 
;N0 

;N0 

;UAS THE NAME LONGER 
THAN 3D? 
NO 

YES, MAKE IT 30 
STDRE LENGTH 


TRANSFER FILENAME FROM 

KEYBOARD BUFFER TO 

A SAFER PLACE 

DONE? 

NO 

UAS NAME' S LENGTH 30? 
YES 

F ILL REST OF BUFFER 


92 AC: 9D DE 95 262 
92 AF: E8 263 


STA FILENAME, X SPACE 'S ASCII CODE 

INX 
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92 BO: EO 1F 26** CPX *31 ; ARE UE DOIME? 

92 B2: DO F6 265 BIME SPACES ;l\IO 
266 

267 OPEN THE FILE. FIRST TEST IF 

268 FILE ALREADY EXI5TS, Il\l OJHICH 

269 CASE THE USER IS ASKED FOR 

270 A NEW FILENAME 
271 


92B*4: 

20 7C 95 

272 

BCKMOl/E 

JSR 

MDVBACK 


92 B7: 

A2 01 

273 

MAIN 

LDX 

♦1 

; TRY DPtr: , jG THE FILE 
AS 

92 B9: 

20 12 3h 

27*4 


JSR 

OPENFILE 

• AN ni n on r 

92 BC: 

20 2D 95 

275 
276 


JSR 

GETCODE 

; CHECK FOR ERRORS 



277 

CHECK FOR ERRORS 




278 





92 BF: 

AD FC 95 

279 


LDA 

TEMP 

•GFT RFTMRfU mn.F 
) ul i r\L i un im LUuL 

92 C2: 

FO 1A 

280 


BEQ 

ERR 

92 C4: 

C9 06 

281 


CMP 

-mFTi i\iTFf\in 

**-r ±LI\I I r IvU 

•FILE NDT FnilND^ 

92 C6: 

FO 53 

282 


BEQ 

OK 

;Y 

92 CB: 

C5 07 

283 


CMP 

\/DI MTRM 
U ULI I1CDI I 

•\/ni 1 IMF MT^MflTPH? 

92 CA : 

DO OF 

28*4 


BNE 

Dnl\JL.nUU I 

lilRnfMR 

UJ i A UI VLj 

92 CC: 

AD 27 9U 

285 


LDA 

U UL UHr_+ I 

, ui imivul. muun Hl 1 

92 CF: 

18 

286 


CLC 


92 DO: 

69 01 

287 


ADC 

i^1 

• TNPRFMFfMT RV 1 

, lIMLiRt-l iL_l\i I Di I 

92 D2 : 

8D 27 9*4 

288 


STA 

l/OLUME + 1 

■AND RTflRF TT RÖFK 

92 D5: 

20 37 9*4 

289 


JSR 

CLSFILE 

• n hsf fti f 

92 DB : 

UC B7 92 

290 


JMP 

MAIN 

92 DB: 

*4C *41 9*4 

291 

BRNCHOUT JMP 

TELLUSER 




292 





92 DE: 

20 37 9*4 

293 

ERR 

JSR 

CLSFILE 

•n nsF fti f 

92 E1 : 

20 5E 95 

29*4 


JSR 

MOVEOUT 

•SAWE SFRFFN 

92E*4: 

20 58 FC 

295 


JSR 

HOME 

92 E7: 

20 89 9*4 

296 


JSR 

MSGOUT 


92 EA: 

C6 C9 CC 






92 ED : 

C5 AO C5 






92 FO: 

D8 C9 D3 






92 F3: 

D*4 D3 AC 






92 F6: 

AD DO CC 






92 F9: 

C5 C1 D3 






92 FC: 

C5 AD C7 






92 FF: 

C9 D6 C5 






9302 : 

AO C1 AD 






9305: 

CU €3 CB 






9308: 

06 C5 D2 






930B: 

C5 CE D*4 

297 


ASC 

"FILE EXISTS, PLEASE GIVE A 






DIFFERENT" 


930E: 

8D 

298 


HEX 

8D 


930 F: 

CE C1 CD 






9312 : 

C5 AO AD 






9315: 

BE AO 

299 


ASC 

"NAME -> " 


9317: 

00 

300 
301 


HEX 

00 


9318: 

UC 73 92 

302 
303 


JMP 

INPUT 




30*4 

HERE UE REALLY OPEN THE 

FILE 



305 





931B: 

A2 00 

306 

OK 

LDX 

#0 

;N0UJ REALLY OPEN THE 


FILE 
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JJ I V . 

20 12 9*+ 

3D9 



310 

oion • 

AO 00 

311 

Q~*<09 • 

A9 DA 

312 


91 08 

313 

yjiiö . 

AO 0*4 

314 

n-?nD . 
JJCC . 

A9 00 

315 


pi ra 

316 

932 C: 

C8 

317 

932 D: 

91 08 

318 

vjc. r . 

on 95 

Cxi JJ JJ 

319 



320 

rijjc. . 

AD 00 

321 


A9 0*4 

322 

JO . 

91 08 

323 

yjjo . 

AO D1 

32*+ 

OI ~l A • 

933h . 

H:7 U I 

325 

933 L: 


326 

ZJJJL. 

cd nn 

327 


OD £ J 

328 


on n? 93 

329 



330 


20 37 9*+ 

331 

7J4Ö . 

20 3 F 93 

332 


AO 00 

333 

q"*/. n ■ 

yj4 u . 

A9 0C 

33*4 

a~zi tr . 
93nh . 

qi nA 

335 

9351 : 

. on i f QR 
; l l z>j 

336 

935*+ 

. on pc; 
: du jj ?j 

JJ; 

93 b / 

. nn n~K 
. DU u j 

338 

9359 

: *4C BB 95 

339 



3*4 0 



3*4 1 



3*42 

935C 

: 20 3F 95 

3*43 


935F: AO 00 3*4*4 
9361 : A9 05 3^5 
9363: 91 08 3*46 
9365: 20 1E 95 3*47 
9368: 20 35 95 3*48 
936B: 20 5E 95 3*49 
936E: 20 58 FC 350 
9371: 20 89 9*4 351 
937*+ : C1 CE AO 
9377: C9 AF CF 
937A: AO C5 D2 
937D: D2 CF D2 
9330: AO C8 C1 
9383: D3 AO CF 
9386: C3 C3 D5 
9389: D2 D2 C5 
938C: C*4 AE 352 
938E: 8D 8D 353 
9390: D0 CF D3 
9393: D3 C9 C2 
9396: CC C5 AO 
9399: C3 C1 05 
939C: D3 C5 D3 


JSR 0PEIMFILE 

LDY *CALTYP ;CALL TYPL 

LDA ^POSITION ;SAUE C0DE F0RE POSITION 

ST A (PAR AM), Y 

LDY #*4 ;BYTE OFFSET 
LDA *0 

ST A (PAR AM) , Y 
IIMY 

STA (PARAM), Y 

JSR CALLMAN ; CALL MANAGER 

LDY tftCALTYP ; TELL FILE MANAGER WE 
lilANT 

LDA ^liiRITE ;T0 bJRITE 
STA (PARAM), Y 

LDY *SLiBCAL ;ALS0 TELL WE UANT TO 

LDA #1 ;WRITE A SINGLE BYTE, NOT 

STA (PARAM), Y ;A RAIMGE DF BYIES 

LDX #0 ;SET CURSOR AT TOP 

STX CU ;DF SCREEN 

JSR DMPSCRN ;DUMP SCREEN 

JSR CLSFILE ;CL0SE THE FILE 

JSR INITNAME ;C0PY FILE NAME 

LDY *CALTYP ; AND, FINALLY, VERIFY 

LDA *VERIFY ; THE FILE TO CHECK FOR 

STA (PARAM), Y ; ERRORS 

JSR RESTORE ; RESTORE DRIVE & SLOT 

JSR CALLMAN 

BCS ERRDR 

JMP QUIT 


I/O ERROR 

ERROR JSR INITNAME ;C0PY FILE NAME TO DOS 

BUFFER 

LDY *CALTYP 

LDA 1EDELETE ;DELETE IT 
STA (PARAM), Y 
JSR RESTORE 
JSR CALLMAN 

JSR MDVEOUT ;SAVE SCREEN 
JSR HOME 

JSR MSGOUT ; OUTPUT MESSAGE 


ASC "AN I/O ERROR HAS OCCURRED. " 
HEX 8DBD 


939F: BA AO CU 

93A2: D2 C9 D6 

93 A5: C5 AO C** 

93 AB : CF CF D2 

93AB: AO CF DO 

93 AE: C5 CE AC 

93B1: AO CU C9 

93B^: D3 CB AO 35U 

93 B7: BD 355 

93B8: CU C1 CD 

93BB: C1 C7 C5 

93BE: Cm AO CF 

93C1: D2 AO C5 

93C*+: CD DO DU 

93C7: D9 AO CU 

93CA: D2 C9 D6 

93 CD: C5 356 

93 CE: 00 357 

93CF: UC EB 9^ 35B 
359 
360 
361 
362 
363 
36^ 

93 D2: A5 25 365 
93D<+: 20 C1 FB 366 
93 D7: AD 00 367 

93 D9: 20 EF 93 366 

93DC: E6 25 369 

93 DE: A5 25 370 

93E0: C9 17 371 

93E2: DO EE 372 

93E^: A5 25 373 

93 E6: 20 C1 FB 37^ 

93 E9: AD 00 375 

93 EB: 20 EF 93 376 

93 EE:- 60 377 
378 

93 EF: BC FC 95 379 

93 F2: B1 28 380 

93FU : AO 08 381 

93 F6: 91 08 382 

93 FB: 20 35 95 383 

93 FB: 90 03 38^ 

93FD: UC AA 9^ 385 

9*400 : AC FC 95 386 

9^03: C8 387 

9U0U : CO 28 388 

9^06: DO E7 389 
390 

9^08: A9 8D 391 

9^0 A: AD 08 392 


ASC "POSSIBLE CAU5E5: DRIvt. DOOR OPEN, 

DISK" 
HEX 8D 


ASC "DAMAGED OR EMPTY DRIV/E" 

HEX 00 

JMP GTCHOICE 


HFRE THE ACTUAL DUMPING OF 
THE SCREEN STARTS. LOAD CHAR 
FROM CURSOR INTO ACC, THEN 
SEND IT TO DOS. 


LDA 

CU 

GET UERTICAL POSITION 

JSR 

BASCALC 

CALCULATE ITS ADDRESS 

LDY 

*0 

USE Y AS RANGE FROM LEFT 



EDGE 

JSR 

DMPROU 

GO AND DUMP THIS RDU 

INC 

CU 

INCREMENT UERT POSITION 

LDA 

CU 

;SEE IF AT BOTTOM LINE 

CMP 

#23 


BNE 

DMPSCRN 

;N0 

LDA 

CU 

;YES, GO AND DUMP THIS 



ALSO 

JSR 

BASCALC 


LDY 



JSR 

DMPROUi 


RTS 




DMPROUJ 

STY 

TEMP 


LDA 

(BASL), Y 


LDY 

^SINGLBYT 


STA 

(PARAM), Y 


JSR 

CALLMAN 


BCC 

CONTINUE 


JMP 

FULL 

CONTINUE 

LDY 

TEMP 


INY 



CPY 

*^0 


BNE 

DMPROU 


LDA 



LDY 

#£>INGLBYT 


;SAUE LEFT END 
; GET CHARACTER FROM 
SCREEN 

; AND SAUE IT INTO 
PARAMETER 
;LIST 
;WRITE IT 
;N0 ERRORS 
;DISK FULL 

;FETCH LEFT POSITION 

; INCREMENT IT 

;HAUE DE DONE ONE ROU? 

;N0 

;WRITE OUT A CARRIAGE 
RETURN 

;(ASCII = 13 OR U1) 


-35- 


940E: 

20 

35 

95 

394 

JSR 

CALLMAN 


9411 : 

60 



395 
396 

RT S 







397 

ACTUAL OPENING OF FILE. 






398 




9412 : 

20 

3F 95 

399 

OPENFILE JSR 

INITNAME 

;COPY NAME TO UHERE DOS 

9415 : 

AO 00 


400 

LDY 

=&CALTYP 

;CAN FIND IT 

9417 : 

A9 01 


401 

LDA 

^-OPEfM 

;STDRE OPEN CODE 

9419 : 

91 

03 


402 

ST A 

(PARAM) Y 

V V r\\\ ni * / | * 


941B: 

AO 02 


403 

LDY 

#RECLEM 

;STORE RECORD LENGTH (0) 

94 1 D : 

A9 00 


404 

LDA 



941 F: 

91 

08 


405 

ST A 

(PARAM) , Y 


9421 : 

C8 



406 

INY 



9422 : 

91 

08 


407 

STA 

(PARAM), Y 


9424 : 

AD 

04 


408 

LDY 


;STORE UOLUME NUMBER 

94 2 6 : 

A9 

FE 


409 

VOLUME LDA 

#254 


9428 : 

91 

08 


410 

STA 

(PARAM), Y 


942 A: 

20 

1E 

jj 

411 

JSR 

RESTORE 

; RESTORE DRIUE & SLOT 

942 D: 

AO 07 


412 

LDY 

4FILETYPE 

;STORE FILE TYPE 

942 F : 

A9 

00 


413 

LDA 

*TEXT 


9431 : 

91 

08 


414 

STA 

(PARAM), Y 


9433 : 

20 

35 


415 

JSR 

CALLMAN 

; CALL MANAGER 

9436 : 

60 



416 
417 

RTS 







418 

CLOSF A FILE 






419 




9437 : 

AO 

00 


420 

CL SF ILE LDY 

*CALTYP 


9439 : 

A9 

02 


421 

LDA 

ifcCLOSE 

;SAVE CLOSE'S CODE INTO 

943B: 

91 

08 


422 

STA 

(PARAM), Y 

;PARAMETER LIST AND CALL 

943D: 

20 

35 

95 

423 

JSR 

CALLMAN 

;FILE MANAGER 

9440 : 

60 



424 
425 

RTS 







426 

AN ERROR HAS OCCURRED, 

INFORM 





427 

USER OF IT 

AND EXIT 






428 




9441 : 

20 

5E 95 

429 

TELLUSER JSR 

MOV/EOUT 

;SAl'E SCREEN 

9444 : 

20 

37 

94 

430 

JSR 

CLSFILE 

;CLOSE FILE 

9447 : 

20 

58 

FC 

431 

JSR 

HOME 


944A: 

20 89 94 

432 

JSR 

MSGOUT 

; OUTPUT A MESSAGE 

944 D: 

C4 

CF 

D3 





9450 : 

AO 

05 

D2 





9453 : 

D2 

CF 

D2 





9456 : 

AO 



433 

ASC 

"DOS ERROR 

1! 

9457 : 

00 



434 

HEX 

00 


94 58: 

A9 

A4 


435 

LDA 

:£»$ " 

; PRINT A DOLLAR SIGN 

945A: 

20 

ED 

FD 

436 

JSR 

COUT 


945 D: 

AD 

FC 

95 

437 

LDA 

TEMP 


9460 : 

20 

DA 

FD 

438 

JSR 

PRBYTE 

; OUTPUT ERROR CODE 

9463: 

20 

89 

94 

439 

JSR 

MSGOUT 


9466 : 

AO 

CB 

C1 





9469 : 

D3 

AO 

CF 





946C: 

C3 

C3 

D5 





946 F: 

D2 

D2 

C5 





9472 : 

C4 

AC 

AO 





9475: 

C4 

D5 

CD 





9478: 

DO 

C9 

CE 





947B: 

07 



440 

ASC 

■ HAS OCCURRED, DUMPING" 

947C: 

80 



441 

HEX 

8D 


947D: 

ci 

C2 

CF 





9480: 

D2 

D4 

C5 
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9483 

: C4 AE 

442 


: 00 

443 

Q/. d£ 

: 4C EB 94 444 



445 



446 



447 

9489 . 

68 

l.l CL 
H HO 

948A: 

□J uu 

449 

948 C: 

68 

450 

948D: 

85 01 

451 

948F: 

AO 00 

452 

9491: 

E6 00 

453 

9493: 

00 02 

454 

9495 : 

E6 01 

455 

94 Q7 ■ 

B1 00 

456 

9499 : 

ro os 

457 

949B: 

09 80 

458 


ASC "ABORTED. ■ 
HEX 00 
JMP GTCHOICE 

ROUTINE FOR PRINTING A 


949D: 20 ED FD 459 

94 AO: 4C 91 94 460 

94A3: A5 01 461 

94 A5: 48 462 

94 A6: A5 00 463 

94 A8: 48 464 

94 A9: 60 ^65 

466 
467 
468 
469 
470 

94 AA: 20 5E 95 471 
94 AD: 20 53 FC 472 
94 BO: 20 37 94 473 
94B3: 20 3F 95 474 
94B6: 20 1E 95 475 
94 B9: AO 00 476 
94 BB: A9 05 477 
94 BD: 91 08 478 
94 BF: AO 07 479 
94 C1 : A9 00 480 
94 C3: 91 08 481 
94 C5: 20 35 95 482 
94 C8: 20 58 FC 453 
94 CB: 68 484 

94 CC: 68 485 
94 CD: 68 486 
94 CE: 68 UB7 
94 CF: 20 89 94 488 
94D2: C4 C9 D3 
94D5: CB AO C6 
94D8: D5 CC CC 
94DB: AE AO DO 
94 DE: CC C5 C1 
94E1: D3 C5 AO 


MSGOUT 

PLA 



QT Ci 

TEMP1 


PLA 



STA 

TEMP1+1 


LD Y 

#0 

LOOP 

INC 

TEMP1 


BNE 

SKIPADD 


INC 

TEMP1+1 

SKIPADD 

LDA 

(TEMP1 ), Y 


BEQ 

MSGRTS 


DRA 

£$80 


JSR 

COUT 


JMP 

LOOP 

MSGRTS 

LDA 

TEMP1+1 


PHA 



LDA 

TEMP1 


PHA 



RT5 



;CONTINUE OR QUIT 
MESSAGE 

;PULL LO BYTE OF RTS OFF 
STACK 

;SAVE IT 

PULL H BYTE 

AND SAVE IT TOO 

TO INDCx STRING 

ADUANCF R t 5 ADR FOR EACH 

CHR 

;IF IT»S 2ER0 THEN liiE 
GOTTA 

; INCREMENT THE HI BYTE 
;GET A CHR FROM ASCII 
STRING 

;IF CHR=0, END OF STRING 
;1F STD ASCII CON\/ TO NEG 
FOR COUT 
OUTPUT THE CHR 
:GET A NELJ CHR 
GET HI BYTE OF RTS 
PUSH IT BACK ON STACK 
FETCH NELJ LO BYTE OF RTS 
AND PUT IT ON THE STACK 
NOliJ WE KNOU UHERE UE'RE 
GOING 


DISK FULL ERROR. INFORM USER 
ABOUT IT AND ASK FOR FURTHER 
ACTION 


FULL JSR MQVEOUT 

JSR HOME 
JSR CLSFILE 
JSR INITNAME 

JSR RESTORE 

LDY *CALTYP 

LDA #OELETE 

STA (PARAM) , Y 

LDY itflLETYPE 

LDA ^TEXT 

STA (PARAM), Y 

JSR CALLMAN 

JSR HOME 
PLA 

PLA 
PLA 
PLA 

JSR MSGOUT 


;SAVE SCREEN 

;CLOSE FILE 
;COPY FILE NAME 


; DELETE IT 
;SET FILE TYPE 


;CALL MANAGER 
; CLEAR SCREEN 
;PULL TUO RETURN 
ADDRESSES 

FROM STACK. EQUIUALENT 
TO APPLESOFT COMMAND 
POP: POP 

OUTPUT MESSAGE 
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9UEU: C5 CE DU 

3UZ1: C5 D2 BA 

%EA: □□ 

: 20 69 9*» 


UBB ASC 
^90 HEX 
/*91 GTCHDICE JSR 


9^4 EE: 
9^F0: 
9^F3: 
9**F6: 
9*+F9: 
9<*FC: 
3U FF: 
9502: 
9505: 
9506: 
9508 : 
950 B: 
95DE: 
9511 : 
95 H: 
9516: 
9518: 
951B: 


8D BD 
DU A9 D2 
D9 AD C1 
C7 C1 C9 
CE AO CF 
D2 AO D1 
A9 D5 C9 
C* BF AO 
DU 

88 00 
20 OC FD 
BD FC 95 
2D 7C 95 
AD FC 95 
C9 D1 
FO 03 
UC D3 91 
UC BB 95 


t*92 


951E: 
9520: 
9523: 
9525: 
9527: 
952 A: 
952 C: 


AD 05 
AD FE 95 
91 08 
AD D6 
AD FF 95 
91 08 
60 


952D: AO OA 

952F: B1 08 

9531 : 8D FC 95 

953**: 60 


9535: 
9537: 
9539: 
953B: 
953E; 


08 
A5 09 
A2 00 
20 D6 03 
60 


953F: AO 08 

95*»1: AD 8C 91 

95UU: 91 08 

95^*6: CB 


HEX 


»DISK FULL. PLEA5E EIMTER: " 
DO ;THIS IS DONE SO YOU 

MSGOUT ;CAI\) JUMP HERE FROM 

ELSEUHERE 

BD8D 


<*93 

U3U 

U35 

U3G 

U31 

U3& 

U39 

500 

501 

502 

503 

50^ 

505 

506 

507 

508 

509 

510 

511 

512 

513 

5U 

515 

516 

517 

518 

519 

520 

521 

522 

523 

52<4 

525 

526 

527 

528 

529 

530 

531 

532 

533 

53** 

535 

536 

536 

536 

536 


YES 


ASC H)RY AGAIN OR Q)UIT? T" 

HEX 8800 

JSR RDKEY 

STA TEMP 

JSR MOVBACK 

LDA TEMP 

CMP * H Q n ;QUIT? 

BEQ YES ;YES 

JMP DEVICES ; START AGAIN 

JMP QUIT 


STORE DISK & SLOT VALUES 


RESTORE 


LDY ^DRIVE 
LDA DRIV/ 

(PAR AM), Y 
#5L0T 
SLT 

(PAR AM), Y 


STA 
LDY 
LDA 
STA 
RT S 


GET SAV/ED DRIV/E AND SLOT 
VALUES AND STORE THEM 
BACK INTO PARAMETER 
LIST 


LO AD RETURN CODE AND SAV/E IT 

GETCODE LDY *RETCODE ;LOAD RETURN CODE 
LDA (PAR AM) , Y 
STA TEMP ;SAVE IT 

RT S 

LO AD PARAMETER LIST INTO Y & A 
AND CALL F ILE MANAGER 


CALLMAN LDY 
LDA 
LDX 
JSR 
RT S 


PARAM 
PARAM+1 

ENTERMAN 


LOAD LO-ORDER BYTE 
LO AD HI-ORDER BYTE 
SET TO ALLOCATION 
ENTER F IL E MANAGER 


SAVE FILE BUFFER 'S ADDRESS 
INTO PARAMETER LIST & COPY 
FILE NAME INTO NAME BUFFER 
UHERE DOS CAN FIND IT 


INITNAME LDY &FILEADR 

»> TRANSFER 

LDA NAMEBUFF 

STA (PARAM), Y 
INY 


NAMEBUFF 

;LOAD LSB OF ADDRESS 
; STORE IT 

; INCREMENT INDEX REGISTER 
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9547 : AD 8D 91 
95*+ A: 91 08 
954C: C8 

954D: A2 □□ 


954 F: 
9552 : 


BD DE 95 
9D 2D 98 
9555: 9D 75 AA 
9558: E8 

E0 1E 
DO F2 
60 


9559 : 
955B: 
955 D: 


955E: 
9560: 
9562 : 
9564 : 
9566: 
9568 : 
956 A: 
956C: 
956 E: 
9570: 
9572: 
9574: 
9576: 
9578: 


A9 04 
85 3D 
A9 00 
85 3C 
A9 07 
85 3F 
A9 FF 
85 3E 
A9 60 
85 43 
A9 00 
85 42 
AO 00 
20 2C FE 


957B: 60 


957C: 

957 E: 
9580: 
9582: 
9584 : 
9586 : 
9588: 
958A: 

958 C: 
958 E: 
9590: 
9592 : 
9594 : 
9596: 


A9 60 
85 3D 
A9 00 
85 3C 
A9 63 
85 3F 
A9 FF 
85 3E 
A9 04 
65 43 
A9 00 
85 42 
AO 00 
20 2C FE 


9599: 60 


959 A: 20 89 94 

959D: CB C9 D4 

AO D2 C5 

D4 D5 D2 

CE AO D4 

CF AO C3 


95 AO: 
95 A3: 
95 A6: 
95A9: 


536 

536 

536 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

549 

549 

549 

549 

549 

549 

549 

549 

549 

549 

549 

549 

549 

549 

549 

550 

551 

552 

552 

552 

552 

552 

552 

552 

552 

552 

552 

552 

552 

552 

552 

552 

552 

553 
554 
555 
556 
557 


LDA IMAMEBUFF+1 
ST A (PARAM), Y 
INY 

«< 

LDX #0 


LOAD MSB OF ADDRESS 
STORE n 

INCRENOT INDEX REGISTER 
EXIT MACRO 


COPY 


LDA 
STA 
STA 
II\JX 
CPX 
BfME 
RTS 


FILEfUAME, X 
$982 D, X 
FILEBUF, X 

#30 
COPY 


MOVE ROUTIfCS 


MOVEOUT »> 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDY 
JSR 
«< 
RTS 

MOI/BACK »> 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDY 
JSR 
<« 
RTS 


SCRIM ; SCRf\i-f LEMGTH ; DEST 
; STORE START OF SOURCE 
;INTO MEMORY 


MEMOMOVE 
*>SCRf\i 
A1L + 1 
*<SCR!\i 
A1L 

*>SCRI\I+LEWGTH ; STORE EIMD OF SOURCE 
A2L+1 ;INTO MEMORY 

#<SCRN+LENGTH 
A2L 

;STORE DESTINATION 
; IfMTD MEMORY 


*>DEST 
A4L+1 
*<DEST 
A4L 

MOV/E 


;D0 ITJ 
;EXIT MACRO 


DEST; DEST+LEIMGTH; 5CR!M 
; STORE START OF SOURCE 
;II\ITO MEMORY 


MEMOMOVE 
*>DEST 
A1L+1 
*<DEST 
A1L 

^>DEST+LE(\IGTH ; STORE EIMD OF SOURCE 

A2L+1 ;II\|TO MEMORY 

*<DEST+LEI\IGTH 

A2L 

;STORE DEST I NATION 
;INTO MEMORY 


*>SCRI\I 
A4L+1 
*<SCRN 
A4L 

MOV/E 


ASK FOR RETURN 
GETRETRIV JSR MSGOUT 


;D0 ITJ 
;EXIT MACRO 


; OUTPUT MESSAGE 
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95 AC: 

CF CE 

Dk 





95 AF : 

C9 CE 

D5 





95 B2: 

C5 AE 

AE 





95 B5 : 

AO 


558 

ASC 

"HIT RETURN TO CONTINUE.. * 

Dc; dc . 

yD ab : 

00 


559 
560 

HEX 

00 


95 B7 : 

20 6 F 

FD 

561 

JSR 

GETLN1 


95 BA : 

60 


562 
563 

RT S 






56*+ 

RESTORE I/O HOOK, SE E 

IF, APPLE- 




565 

SOFT IS ACTIVE AND, IF 

IT IS, 




566 

EMPTY KEYBOARD BUFFER AND 




567 

RESET TXTPTR. 





568 




ne . 

A5 07 


569 

QUIT LDA 

PAR AM- 1 


95 BD : 

8D 59 

AA 

570 

STA 

IOHOOK 


95 CD: 

AD FD 95 

571 

LDA 

TEMP+1 

; RESTORE CU 

95 C3 : 

B5 25 


572 

STA 

CU 

95 C5 : 

AD 00 

ED 

573 

LDA 

BASIC 

;SEE IF APPLESOFT 

95 C8 : 

C9 ^C 


57^ 

CMP 

*$hC 

;IS ACTIUE 

95 CA : 

DO 11 


575 

BNE 

EXIT 

95 CC : 

A2 00 


576 

LDX 

#0 

;STORE D'S INTO KBD 
BUFFER 

95 CE : 

A9 LO 


577 

LDA 

#0 


95 CX] : 

9D 00 

□2 

578 

ZAPBUF STA 

BUFFER, X 


95 D3 : 

E8 


579 

INX 


95D*+ : 

DO FA 


580 

BNE 

ZAPBUF 


95 D6 : 

68 


581 

PL A 


; RESTORE TXTPTR FROM 
STACK 

95 D7: 

AA 


582 

TAX 



95 D8: 

68 


583 

PLA 



95 D9: 

85 B8 


58*4 

STA 

TXTPTR 


95 DB: 

86 B9 


585 

STX 

TXTPTR+1 


95 DD : 

60 


586 

EXIT RTS 




95FC: 00 00 
95FE: 00 
95FF: 00 


587 
588 
589 
590 

591 
592 
593 


STORAGE AREA 

FILENAME DS 30 

TEMP HEX 0000 
DR IV/ HEX 00 
SLT HEX 00 


;RESERVE BUFFER FOR FILE 
NAME 


— End assembly- 
1180 bytes 
Errors: O 
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:ASM 





1 




2 




3 




4 




5 




6 




7 




8 




9 




10 




11 




12 




13 




14 




15 




16 




17 

0300: 

AD 59 

AA 

18 

03D3: 

8D 5D 03 

19 




20 

□306: 

ns rn 

H_J U / 


21 

0308: 

A6 06 


22 

□30 A: 

20 41 

F9 

23 

D30D: 

AO 00 


24 

□3DF: 

A9 AD 


25 

□311 : 

20 ED 

FD 

26 

03 U : 

A9 AO 


27 

0316: 

20 ED 

FD 

28 

□319: 

B1 06 


29 

D31B: 

20 DA 

FD 

30 

031 E: 

A9 AO 


31 

□32D: 

20 ED 

FD 

32 

D323: 

A5 06 


33 

□325 : 

29 OF 


34 

□327: 

C9 07 


35 

□329: 

FO 04 


36 

□32 B: 

C9 OF 


37 

□32 D: 

DO 05 


38 

UJc. r . 

20 8E 

FD 

39 

□332 : 

AO 01 


40 

□334: 

E6 06 


41 

0336: 

DO 02 


42 

□338: 

E6 07 


43 

033A: 

A5 07 


44 

033C: 

C5 09 


45 

□33E: 

90 OF 


46 

0340: 

FO 02 


47 

0342: 

BO 08 


48 

□344: 

A5 06 


49 

□346: 

C5 08 


50 

□348: 

FO 05 


51 

□34 A: 

90 03 


52 

□34 C: 

18 


53 

034D: 

90 07 


54 

034 F: 

CO 01 


55 

0351: 

FO B3 


56 


DUMPS AN AREA OF MEMORY 
SAME FORMAT THE MOIMITOR 
UHEN YOU TYPE XXXX.YYYY 


20/04/83 



ORG 

$300 

PRBYTE 

= 

$FDDA 

COUT 

= 

$FDED 

CR0UT1 

= 

$FD8E 

PRIMTAX 

= 

$F941 

HOOK 


$AA59 

POINTER 


6 

PDIIMTER1 

= 

8 


LDA 

HOOK 


5TA 

TEMP 

PR M T ADR 

LDA 

POINTER+1 


LDX 

POINTER 


JSR 

PRNTAX 


LDY 

*o 


LDA 



JSR 

COUT 


LDA 



JSR 

COUT 

PRNTBYTE 

LDA 

(POINTER), 


JSR 

PRBYTE 


LDA 



JSR 

COUT 


LDA 

POINTER 


AND 

^%00001111 


CMP 

HF7 


BEQ 

RET 


CMP 

4£$F 


BNE 

NORET 

RET 

JSR 

CR0UT1 


LDY 

*1 

IMORET 

INC 

POINTER 


BNE 

NOINC 


INC 

POINTER+1 

NOINC 

LDA 

POINTER+1 


CMP 

P0INTER1 +1 


BLT 

CHECK 


BEQ 

CONT 


BGE 

QUIT 

CONT 

LDA 

POINTER 


CMP 

P0INTER1 


BEQ 

CHECK 


BLT 

CHECK 

QUIT 

CLC 



BCC 

EXIT 

CHECK 

CPY 



BEQ 

PRNTADR 


IN THE 

DOES 

<RET> 


PRINT A BYTE 
OUTPUT A DKARACTEti 
CARRIAGE RtrURii 
OUTPUT A 2 -BYTE NUM8ER 


; START OF DUMP AREA 
;END OF DUMP AREA 


; PRINT ADDRESS IN HEX 


;FLAG 

; FORMAT TO SAME AS 
MONITOR 
M ;DOES 

Y ; GET BYTE FROM ADDRESS 
; AND PRINT IT 


;5EE IF LO BYTE ENDS 
;AS 7 OR F 

;YES 

;N0 
;C/R 

;FLAG DE DID A C/R 

; INCREMENT DESTINATION 


;TEST TO SEE IF UE'WE 
jREACHED OUR 
DESTINATION 
;NOT YET 
; MAYBE 
;'dJE HAVE 
;TEST LO BYTE 

;NOPE 


;HAUE UE DONE A C/R? 
;YES, GO AND PRINT THE 
ADDRESS 
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Aapi Juntura: 
11.3.83 

Microcomputer GRAPHICS 
Roy E. Myers 
Addison-Uesley Publishing Company 
ISBN D-2D1-D5D92-7 


Kirja käsittelee tietokonegrafiikkaa lähtökohtana Apple II :n 
mahdollisuudet kuvan piirrossa ja tekstityksessä TV-ruudulle, 

Kirja jakaantuu seitsemään lukuun : esittely, tietokone, 
kaksiulotteinen kuva, kolmiulotteinen kuva, kolmiulotteiset i kuvan 
kierto ja näkyvyyden määritys, animaatiot sekä lisäykset. 

Dhjelmaesimerkkejä on runsaasti, ja ne alkavat aivan yksinkertaisista 
sattumanvaraisten pisteiden piirtämisestä päättyen kolmiulotteisten 
kappaleiden pyörittämiseen ja niiden taakse jäävien viivojen 
poistamiseen. 

Poimintoja sisällysluettelosta: pomppiva pallo, värillinen viiva, 
kirjain- ym merkkien muodostaminen, värin valinta, resoluutio, sivujen 
vaihto, muistialueen siirto, tekstin valmistus grafiikan sekaan (kaksi 
vaihtoehtoa). Matriiseja käsitellään runsaasti. Suorakaiteen 
piirtäminen ja kiertäminen. Analyyttinen geometria käsittelee 
ympyrän, ellipsin (ympyrä on ellipsin erikoistapaus), parabelin, 
hyberbelin sekä koordinaattimuunnoksia. Kolmiulotteisten kuvien 
osalta kirja on hyvä deskriptiivisen geometrian kertauskurssi, 
esimerkkinä kuution eri tarkastelukulmat, josta mennään kappaleen 
taakse jäävien viivojen poistoon. Edelleen asiaa kehitellään kahden 
kappaleen näkyvien viivojen määrityksellä. Animaatiossa esitellään 
"shapejen" tekoa, piilossa olevalle sivulle piirtämistä ja 
kolmiulotteisten kuvien pyörittämistä. Piirturi, grafiikkataulu ja 
kirjoitin esitellään vaatimattomasti. Vek torien käsittelystä on oma 
oppijaksonsa. Lopuksi on listaukset kirjan kansissa oleville kuville. 

Sanoisin, että kirjantekijä on hyvin onnistunut pyrkimyksessään 
opettaa tietokonegrafiikan perusteet esimerkkien avulla lukijalleen. 
Missään vaiheessa ei juuri jätetä aukkoja, eikä lukijan oleteta 
tietävän paljoa (niinkuin ei yleensä tiedäkään). Näkemistäni tätä 
aluetta käsittelevistä kirjoista on tämä paras. Erityisesti Apple II :n 
käyttäjälle se sopii. 

Kirjaan liittyen voi tilata erillisen levykkeen, jossa on kirjan 
sisältämät ohjelmat, joiden summaksi arvelisin noin 100 k tavua. 
Kirjan hinta Helsingin Akateemisessa kirjakaupassa on 105mk. 
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i i i i m i, ii i uh iiniilit.Hiii'1't, f? itu Imenahyve tarjoaa ilmaista osto /myynti 
u.iihl.ni Imui l.ii!iLi Ihh jiisnnilleen? Ensimmäiset ovat nyt huomanneet: 


MYYTÄVÄNÄ: 


Apple II Europlus -tietokone, johon kuuluu kielikortti, Disk II 
ohjaimineen ja RGB-värimonitori ohjaimineen. Järjestelmä on 
perushuollettu ja läpäissyt huollon testit. 

Soita v/irka-aikana: Juhani Viherlahti, puh. 90-7D9 B3M 


Myydään muutaman vuoden ikäinen Apple II Plus '♦BK ASCII-näppäimistöllä 
(ei skand,) & 1 levyasema DOS 3.2.1 & VISICALC 3.2.1 joko yhdessä tai 
erikseen. 

Kari Hukka, Suursuo, 78500 VARKAUS 50, p 972-13331 koti, 972-27311 työ 


Appleklubikir. myy. Tuotteena jokapäiväinen reikäleipämme: disketti. 
Kysy tarkemmin rahastonhoitajaltamme Per-Erik Erikssonilta. Vertaa 
hintaa laatuun. 1 


■■■ - ,?-W-- •■-/r-- : ,;- -r.--" :- ' •■' . ■ ■■■■■ -\>'.--5-- ' 

APPlEKLUBI R. Y:N SÄÄNIMÖT 


1 NIMI JA KOTIPAIKKA 

Yhdistyksen nimi on APPLEKLUBI r.y. ja kotikunta on Helsinki. 


2 TARKOITUS JA TOIMINNAN LAATU 

Yhdistyksen tarkoituksena on taimia kokoavana ja yhdistävänä 
elimenä APPLE-tietokoneiden parissa toimivien henkilöiden kesken. 
Yhdistys pyrkii toiminnallaan neuvomaan ja ohjaamaan jäseniään 
APPLE-tietokoneiden laitteistoihin ja ohjelmistoihin liittyvissä 
kysymyksissä, sekä voi antaa myös ulkopuolisille tietoja APPLE- 
tietokoneiden laitteistoihin ja ohjelmistoihin liittyvissä 
kysymyksissä. Yhdistys voi antaa myös ulkopuolisille tietoja 
APPLE-asiantunti joista. Yhdistys pyrkii edistämään myös yleistä 
atk -alan tuntemusta. 

Tarkoituksensa toteuttamiseksi yhdistys järjestää jäsentilaisuuk- 
sia, koulutus-, esitelmä- ja esittelytilaisuuksia sekä välittää 
tietoja jäsenilleen eri tiedonvälityskanavia käyttäen. 

Toimintansa tukemiseksi yhdistys voi toimeenpanna rahankeräyksiä 
ja arpajaisia hankittuaan asianomaisen luvan. Yhdistys voi myös 
omistaa toimintaansa varten tarpeellista irtainta tai kiinteää 
omaisuutta. 


3 JÄSENET 

Yhdistyksen jäseneksi voi liittyä jokainen APPLE-tietokoneeseen 
tai automaattiseen tietojenkäsittelyyn liittyvistä asioista 
kiinnostunut yksityinen henkilö. Yhdistyksen jäsenet ovat joko 
varsinaisia tai kannattajajäseniä. 

Yhdistyksen jäseneksi hyväksyy hallitus kirjallisesta anomuksesta. 

Jäsenellä on oikeus erota yhdistyksestä ilmoittamalla siitä 
kirjallisesti hallitukselle tai sen puheenjohtajalle taikka 
suullisesti yhdistyksen kokouksen pöytäkirjaan. Jos jäsen jättää 
maksamatta jäsenmaksunsa kahdelta vuodelta, voi hallitus erottaa 
jäsenen yhdistyksestä. 

Varsinaisilta ja kannattajajäseniltä perittävän liittymis- ja 
vuotuisen jäsenmaksun suuruudesta päättää vuosikokous. 
Päätös astuu voimaan seuraavan kalenterivuoden alusta. Kunkin 
vuoden jäsenmaksu on maksettava saman vuoden toukokuun loppuun 
mennessä. Jäsenmaksu voi olla erisuuruinen mainituille 
jäsenryhmille. 
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HALLITUS 

Yhdistyksen asioita hoitaa hallitus, johon kuuluu vuosikoko- 
uksessa valitut puheenjohtaja ja 3 varsinaista sekä 2 vara- 
jäsentä. 

Hallituksen jäsenten toimikausi on vuosikokousten välinen aika. 

Hallitus valitsee keskuudestaan varapuheenjohtajan sekä ottaa 
BihtMrln, rahastonhoitajan ja muut tarvittavat toimihenkilöt. 

Hallitus kokoontuu puheenjohtajan tai hänen estyneenä ollessaan 
varapuheenjohtajan kutsusta kun he katsovat siihen olevan aihetta 
tai kun vähintään 2 hallituksen jäsentä sitä vaatii. 

Hallitus on päätösvaltainen, kun vähintään kolme (3) sen jäse- 
nistä , puheenjohtaja tai varapuheenjohtaja mukaanluettuna on 
läsnä. Asiat ratkaistaan yksinkertaisella ääntenenemmistöllä. 
Äänten mennessä tasan ratkaisee puheenjohtajan mielipide, vaaleissa 
kuitenkin arpa. 

YHDISTYKSEN NIMEN KIRJOITTAMINEN 

Yhdistyksen nimen kirjoittavat puheenjohtaja ja varapuheenjohtaja 
yhdessä tai jompikumpi heistä yhdessä sihteerin tai 
rahastonhoitajan kanssa. 


TILIT 

Yhdibtyksen tilikausi on kalenterivuosi. 

Tilinpäätös tarvittavine asiakirjoineen ja hallituksen vuosi- 
kertomus on annettava tilintarkastajille viimeistään neljä viikkoa 
ennen vuosikokousta. Tilintarkastajien tulee antaa kirjallinen 
lausuntonsa hallitukselle viimeistään kaksi viikkoa ennen 
vuosikokousta. 


YHDISTYKSEN KOKOUSTEN KOOLLEKUTSUMINEN 

Yhdistyksen kokoukset kutsuu koolle hallitus. Kokouskutsu on 
toimitettava viimeistään neljätoista (1**) päivää ennen kokousta 
lähettämällä kutsu kirjallisena kullekin jäsenelle sekä 
mahdollisuuksien mukaan julkaisemalla kutsu jossakin alan 
ammattilehdessä. 


YHDISTYKSEN KOKOUKSET 

Yhdistyksen vuosikokous pidetään vuosittain hallituksen mää- 
räämänä päivänä ennen maaliskuun loppua. 

Ylimääräinen kokous pidetään, kun hallitus katsoo siihen olevan 
aihetta tai kun vähintään viidesosa (1/5) yhdistyksen 
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jäsenistä sitä hallitukselta erityisesti ilmoitettua asiaa varten 
kirjallisesti vaatii. Kokous on pidettävä kahdenkymmenyhden (21) 
päivän kuluessa vaatimuksen esittämisestä. 

Yhdistyksen kokouksissa on jokaisella varsinaisella jäsenellä yksi 
ääni. Kannatusjäsenillä ei yhdistyksen kokouksessa ole ääni- 
oikeutta. Päätökset tehdään, ellei näissä säännöissä toisin 
määrätä, yksinkertaisella ääntenenemmistöllä. Äänten mennessä tasan 
ratkaistaan vaalit arvalla, mutta muissa asioissa tulee päätökseksi 
kokouksen puheenjohtajan mielipide. 


VUOSIKOKOUS 

Yhdistyksen vuosikokouksessa käsitellään seuraavat asiat: 

1. kokouksen avaus; 

2. valitaan kokouksen puheenjohtaja, sihteeri ja kaksi 
pöytäkirjantarkastajaa ja kaksi ääntenlaskijaa; 

3. todetaan kokouksen laillisuus ja päätösvaltaisuus; 

4. hyväksytään kokouksen työjärjestys; 

5. esitetään tilinpäätös, vuosikertomus ja tilintarkas- 
tajien lausunto; 

6. päätetään tilinpäätöksen vahvistamisesta ja vastuu- 
vaoauden myöntämisestä hallitukselle ja muille tili- 
velvollisille ; 

7. vahvistetaan toimintasuunnitelma, tulo- ja menoarvio 
sekä liittymis- ja jäsenmaksun suuruus; 

B. valitaan hallituksen puheenjohtaja ja muut jäsenet; 
9. valitaan kaksi tilintarkastajaa ja heille kaksi 
varamiestä ; 

10. käsitellään muut kokouskutsussa mainitut asiat; 

11. muut esilletulevat asiat. 

Mikäli yhdistyksen jäsen haluaa saada jonkin asian yhdistyksen 
vuosikokouksen työjärjestykseen liitettäväksi, on hänen siitä 
kirjallisesti ilmoitettava hallitukselle niin hyvissä ajoin, että 
se voidaan sisällyttää kokouskutsuun. 


SÄÄNTÖJEN MUUTTAMINEN JA YHDISTYKSEN PURKAMINEN 

Päätös sääntöjen muuttamisesta on tehtävä yhdistyksen kokouksessa 
vähintään kolmen neljäsosan (3A) enemmistöllä annetuista äänistä. 
Kokouskutsussa on mainittava sääntöjen muuttamisesta. 

Yhdistyksen purkamispäätös tehdään kahdessa, vähintään kahden 
viikon väliajoin pidettävässä yhdistyksen kokouksessa. Päätös on 
kummassakin kokouksessa tehtävä vähintään kolmenel jäsosan (3A) 
enemmistöllä annetuista äänistä. Purkamisesta on mainittava 
kokouskutsussa. 

Yhdistyksen purkautuessa käytetään yhdistyksen varat yhdistyksen 
tarkoituksen edistämiseen purkamisesta päättävän kokouksen 
määräämällä tavalla. Yhdistyksen tullessa lakkautetuksi käytetään 
varat samaan tarkoitukseen. 
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MAINOS 444*4444444*44444444444444444444444 
♦ f\ N 1 Iii IIII I IISI NIMI OHJtLMlSTO + 
4 VERSIO 2.0 4 

.......,..,.««<..«< 44++++++++++++++ 

KOT 1 MA INI N 1 II IIII I IKI NNI IIHJI I MJSIO APPLE- T IETOKONEELLE 
OHJELMISTO TUKEE UUTTA APPLE SUPER SERIAL CARDIA 


ANI (/HupUx/i; NrUiurl. Intprf ace)-Oh>lmiatCJ on tehty APPLE II PLUS, 
APPLE I I EUROPLUB ja APPLE //e tietokoneille RS-232-C standardin 
mukaista liikannet tl varten. Ohjelmisto tukee myös APPLE //e:n 
8U-merkin näyttöä. Se on tehty vastaamaan suomalaisia tietoliikenteen 
vaatimuksia. Ohjelmiston suunnittelun pohjana on IS0:n seitsentasoinen 
tietoliikenteen arkkitehtuuri. 

Ohjelmiston valintalistat ja käsikirjat ovat suomeksi, jolloin 
veraskielisen tekstin ja erikoiskäsitteiden vierasperäisiä nimiä ei 
tarvitse välttämättä tuntea. 

Tiedonsiirto tapahtuu kahden APPLE-tietokoneen välillä vaivattomasti 
joko valintaisellB tai kiinteällä yhteydellä. Graafiset piirrokset ja 
kuvat siirtyvät myös tämän ohjelmiston avulla. 

Yhteydenpito ja tiedonsiirto suurkoneisiin on helppoa tämän 
tietoliikennepaketin avustamana. APPLE-tietokone toimii älykkäänä 
päätteenä. Sillä voidaan antaa suurtietokoneelle ohjauskomentoja ja 
sieltä voidaan lukea tiedostoja APPLEn puskurimuistiin. NLiistin 
sisältö voidaan tallentaa tiedostoksi levylle jatkokäsittelyä varten. 

EDUT 

Ohjelmisto on toiminnoiltaan erittäin monipuolinen. Markkinoilla 
olevista tietoliikenneohjelmistoista tämä on eräs kehittyneimmistä. 

Pääosiltaan tietoliikenneohjelmisto on laadittu ASSEMBLER- kielellä, 
joka takaa nopean ja tehokkaan toiminnan. Nopeutta 2^00 bit/s, 
suurempiakin nopeuksia on mahdollista käyttää. 

Ohjelmisto on erittäin helppokäyttöinen. Jos ongelmia kuitenkin 
ilmenisi, apu löytyy Suomesta. 


A N I TIETOLIIKENNEOHJELMISTON OMINAISUUKSIA 

ANI-tietoliikenneohjelmisto on tarkoitettu merkkimuotoisen tai graa- 
fisen tiedon (kuvien) siirtämiseen kahden tietokoneen välillä. Ohjel- 
misto sisältää valintalistoja, joilla määritellään laitteistokokoon- 
pano ja tiedonsiirron toiminnot. Ohjelmiston toimintamahdollisuuksista 
saa kuvan tarkastelemalla valintalistoja, jotka seuraavassa: 

Laitteiston ominaisuudet määrittävä valintalista: 

PERUSVALINNAT A N I TIETOLIIKENNE 

CCS7710:N PAIKKA i2 

LEVYLIITÄNNÄN PAIKKA 76 

DATALIITÄNNÄN PAIKKA j6 

TALTION NUMERO iO 


-48- 


DATABITTEJÄ 8 

5T0P-BITTEJÄ 2 

PARITEETTI 2*EI 2 

□«PARILL. , 1*PARIT0N 

BREAK-MERKKI 2 

SARAKELEVEYS 8 

RIVIN LOPUN VAROITUS 72 

VIRHE ANALYYSI AIKA (1-5s) 5 


Seuraavalla valintalistalla määritellään liikennöinti in liittyviä 
toimintoja. 

VALINTALISTATOIMINNOT 

A(PUASETUKSET 

B( LOKKI TALLETUS 

C( ATALOG TIEDOSTOLUETTELO 

D( AT APUSKURIN TALLETUS 

GCENEROI DATAN LÄHETYS 

H( ALF DUPLEX (VUORDSUUNT. ) 

KLMAISUNÄYTTÖ VASTAANOTOLLE. . 

J(ÄLJENNYSLEVY: 2 

KULAHTAVA NÄPPÄIMISTÖ 

M( ERKKIEN SELVITYSNÄYTTÖ .. 

N(OPEA L INJ AV IRHE ANALYYSI 

0(TA TIEDOSTO DATAPUSKURIIN. . . 

PCUSKURIEN NOLLAUS 

Q TIETOLIIKENNÖINNIN LOPETUS.. 

R(APORTOINTI 

S (ANOM APUSKURIN TALLETUS 

TUETOJEN LÄHETYS 

U( UDELLEENALOITUS 

Ohjelmistoon sisältyy näiden lisäksi useita muita pää- ja alivalinta- 
listoja. 

LAITTEISTOVAATIMUKSET 

ANI-tietoliikenneohjelmisto toimii APPLE II ja APPLE //e - tietoko- 
neissa, jossa on vähintään 48 kilotavua muistia. Ohjelmisto toimii 
ilman kielikorttiakin. Tällöin INTEGER- BASICIN käyttö ei ole mahdol- 
lista. Jos APPLE //e on varustettu 80-merkin kortilla, on 80-merkin 
näyttö käytettävissä. 

ANIssa on muunnettu DOS 3.3 -levykäyttöjärjestelmä. Yksi levyasema 
tai kovalevyasema (WINCHESTER) on vähimmäisvaatimuksena. 

Järjestelmässä tarvitaan joko APPLE SUPER SERIAL CARD- sar jaliikenne- 
kortti tai CCS ASYNCHRONDUS SERIAL INTERFACE MODEL 7710A, asynkroninen 
sarjaliikennekortti, kaapeli modeemin ja sar jaliikennekortin välille, 
modeemi sovittamaan tietokone puhelinlinjaan sekä videomonitori. 

Ohjelmistoa myyvät APPLE-tietokoneiden jälleenmyyjät. 

ANI (Adaptive Netuork Interf ace)-tietoliikenneoh jelmiston valmistaja 
on: 

ALGEBRA DATA KY 
ISOKAARI 8 B 34, 
00200 HELSINKI 20 

M,. 90^92 U» (aut.vastaaja^auhuri) 



